




COPYRIGHT 


DVi1-D TOVIi-D & SUR VEIGHT | 
CéZlOVAG : C oF 0 Made In-USA 







= > me 


i if a Reece 





3 
; 
« 
$i 
: 
bh 
Bl 
4 
e 


SE UTTETITT Ti 

‘aparierennrarartr 
ttt 
— 


| VT Ae 


TT Bes 
i es 





2 see 
ead 
4 =i! 
ry 


==—ee u Bea! 
re 


a] 
i 








lus fe mare Wi 3 | rower Mie 1). 
ET 4d SO ig be aooteaaees 
Heat inp. |S 
a es } =. 
{ 











i pe ee 
t 1 
1 
Paros i jet | = 
| 
=< 5 
Ga 
— e . i 
sie) 1 mre om [_ ; ; IT I ne 
Hs . od fee LS ae Se i % 
= poe fee | hi fr 
Brosee> | Bie te a4 ee se 
: 7 wee iE Be ac ree 












a i] PRONE us : ~ { eis : 
| = — ie Pe 
| ie : Rr- EE 
fies om i lm Bern ts 
: : cE; : : - +E i 
oy te ba ~ + a fel 
3 le 
be S: wot 
ae eee =e 
= = ! 
eee , "r Fr me = j . 5 
- HR: * | ‘ 
| 3 li ae ae Bi 4 
ts a a ale 
j== Be= ik Bh 
(he oa “en ove Free ete hie 1 aS i ia i = Or if 3 Eo 
HAE 33 iP : 





an mere r | 
omerae ow 
Se emer tae 
eeditap tioned 
Ses coe 
+ 
‘apse eee =e 








USER DOCUMENTATION 


MACRO VO5.00 Wednesdey 03-Oct-84 14:03 Page 2 


-REM € 
IDENTIFICATION 


Product Code: AC-1T976A-MC 

Product Neme: CZIDVAO IDV11-0 5 CHA. CNT DIAG 
Product Dete: SEP 1964 

Meinteiner: CSS Munich 

Authors: Peter Seebech 


The information in this document is subject to wi thout 
notice end should not be construed es e commitment digitel 
equipment corporation. Digitel equipment corporation eseumes no 
responsibility for eny errors thet aay eppeer in this document. 


No responsibility is sseumed for the vee or reliability of 
on equipment thet is not supplied by digitel or its 

effilieted . compenies. 

COPYRIGHT (C) 1964 BY DIGITAL EQUIPMENT CORPORATION 

The following ere tredemerks of digital equipment corporation: 


OIGITAL POP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 
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1.0 Generel iaformat ion 


eee eevee eenesee eee eeee 


Tre CZIDV?? pees ed mip y e@ series of tests to verify the 
integrity end func ity of the I0V11-D five channel counter. 
This diagnostic can be used by field eervice for functionel testing, 
by the engineer for design tests, and by menufecturing for 

checkout end repeir. 


The following epeciel feetures ere implemented. 
The eee i os Oe is set for field service eo thet if the veer 
MARDUARE” end “CHANGE SOFTWARE” 


nnn Ata an eutomatic configuration routine will be run. This 
finde ell devices in the eddress r 171000 to 171770, prints 
e list of ell IAV/IDV11 devices f » and cerries out Ag 

five chennel counter test if e counter ie found . this feeture 
hes special significance when the XXDP+ SETUP utility is used 
(eee section 2.9). 


If the eveluete fleg “EVL” is set, unit on which more than 5 
errors ere detected following e “START” commend is dropped from 
testing. 

The progrem supports up to 16 ay ell selected tests being 


run on one unit before proceding to the next wit. 
This diagnostic hes been written for use with the diagnostic 


runtime services softwere (euperviecor). these services prov ide 
the interfece to the cperetor and to the softwere environment. 


is e 
runtiae services in section 2 of this 


e. LSI processor with e minimm of 26k of memory. 
b&b. Console terminel with interface eddrese 777560. 


c. XXDP+ loed device (RX,RK,RAL ECT.) 
dé. ID0V11-D0 five channel counter module to be checked. 
e. Test connector (2G-MOOBA-00) end voltege source (21-24V DC) 
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To run the diagnostic on e tg og besed poe Sgr! & Bo «ity 
em is needed in eddition to the eo eee 
s could be oe See ere wer en oe titAa - a 


MXV-11 
If you have insteiled the Felcon Mecro-ODT rom KXT11-A2 for 
booting the XXDP+ media with the di tic on it, some of the 
IAV/IOV-11 11 defeult eddresees ere + preventing the 


diegnoetics eutonat ic configuration routine from work ing 
correctiy. To use the diagnostic, the eddreeses must be entered 
mervelly using the stertup questions. 


Fatal an 
>) FAL dose not support vecters over 374. Therefore you can't use 
IAV/IDVi1 ~eanere over 374. 


1.4 Releted documents end stenderds 


XXDP+ User menuel (CHQUS) 
IAV/IDV11 Option description YG-CO3NC-00 


1.5 Diagnostic hierarchy prereqisites 

Before running this ee the appropriete LSI-11 CPu, 

ramen nt A and per ipherel diegnostice should be run to verify 
correct operation of the systen. 


1.6 Execution time 


Execution times v with the CPU type. The following times 
ere typicel on e -11/23 + system for one wit: 


quick verify = no ,execution time for 1 pass = 30 sec. 
quick verify = yes,execution time for 1 pess = 9 sec. 


a 
ri | 
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2.0 Operating instructions 


This section conteins ea brief description of the runtime 
services. + I antec information, refer to the XXDP+ user's 


menuel ( 

2.1 Commands 

There ere eleven legel commends for the ag ayn runt ime 
services Ceupervisor). this section Se commands and 
gives e very brief description of them. The XXDP+ user's manuel 
hes more details. 

COMMAND EFFECT 

START stert the diagnostic from en initiel state 
RESTART stert the diagnostic without se 
CONTINUE continue et test thet wes interrupted (efter tc) 
PROCEED continue from en error helt 

EXIT return to XXDP+ monitor (XXDP+ operation only! ) 
ADD activate e unit for testing (ell units ere 


considered to — * ective et stert time 

OROP deactivete e unit 

PRINT print test titles, IAV/IDV-11 configuration, 
error etetistice, or how to reconfigure. 
(e0ee section 4.0) 


DISPLAY see e@ list of ell device information 
FLAGS the state of all flege (see section 2.3) 
ZFLAGS cleer ell flege (see section 2.3) 


A commend cen be recognized the first three cherecters. So 
you may. for exemple, type “STA” instead of “START”. 


There ere several switches which ere used to aodify eupervisor 
conmends. 


/TESTS:LIST execute on am those tests epecified in 

the list. ist is e string of test 
rvuebers, for exemple - /tests:1:5:7-10. 
thie liet will cevee tests 1,5,7,8.9.,10 to 
be run. ell other teste will not be run, 
/PASS :D0000 execute ddddd pesees (ddddd = 1 to 64000) 
/FLAGS:FLGS set specified flege. flege ere described 
in section 2.3. 

EOP : 00000 report end of pees message efter one 


este goose onl (ddddd = 1 to 64 
/UNITS:LIST TEST/ADD/DROP only those units specified 


| 
| 
| 2.2 Switches 
| 
| 
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in the list. list exemple - /UNITS:0:5:10-12 
use units 0,5,10,11,12 (unit numbers = 0-63) 


Exemple of switch usege: 

START/TESTS: 1-S/PASS: 1000/E0OP : 100 
The effect of this commend will be: 1) tests 1 through 5 will be 
executed, 2) ell units will tested 1000 times and 3) the end of 
pess messeges will be printed efter each: 100 pesses only. A 
gwitch cen be recognized by the first three cherecters. You may, 
for exemple, type “/TES:1-5" instead of "/TESTS:1-5”". 


Below is e teble thet specifies which switches can be used by 


each commend. 
TESTS PASS FLAGS EOP UNITS 

START & x x x x 
RESTART xX x x x x 
CONT x x x 
PROCEED x 
DROP x 

x 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS 
EXIT 
2.3 Flegs 
Flegs ere uveed to set up certain tionel peremeters such es 


leoping on error. All flege ere cleared et stertup and remain 
cleared witil explicitly set using the flegs switch. Fl ere 
elso cleared efter e stert unless set using the f °9 
guitch. The ZFLAGS commend mey eleo be used to cleer ell flags. 


With the exception of the stert end zflegs commends, no 
commends effect the state of the flegs; they remain set or 
cleered es specified by the lest fleg switch. 


FLAG EFFECT 

HOE helt on error - control is returned to 
runtime eervices commend mode 

LOE loop on error 

IER« inhibit ell error reports 

IBE* inhibit ell error reports except 


firet level (first level conteins 
error type, number, pc, test end unit) 


IXE*s inhibit extended error reports (those 
_ eoites by trai nny | oy ~" 

irect messages to line printer 
BOE “Bell” on error 


SEQ 0006 
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PNT print test number es test executes 

UAM unettended mode (no manuel intervention) 

ISR inhibit stetisticel reports (not eppliceble) 

IOR inhibit program dropping of units (not 
required since units ere only dropped if 
EVL is used. 

ADR execute autodrop code 

LOT loop on test 

EVL execute evaluation ie. drop un if mo 
then 5 errors occur efter eae Stat or RESTART 
command. 


eerror messeges ere described in section 3.1 


See the XXDP+ user's manuel for more details on flegs. You may 
specify more then one flag with the fleg switch. For example, 
to ceuse the progrem to loop on error, inhibit error reports 
and type e “bell” on error, you may use the following string: 


/FLAGS : LOE: IER: BOE 
2.4 Herdwaere questions 


When the diagnostic is sterted, the runtime ps el will prompt 
the user for herdwere information by typing “CHANGE HW (L) ?” 


This gpm eaie 5 pe: hes been preloeded such thet if you "4" “nN” 
to the question, it will a seerch for 

IAV/IDV11 units in the eddress range 171000 to 1717 ¥, “befeult 
vectors equal to the low 9 address bits will be eseumed for 
modules with eddresses over 171400. 


To run the —— with — modules which need not be in 
the above seddress pangte yes oe eae enewer “Y" to the “CHANGE 
HARDWARE” question runt ime saalone will then eek for the 
number of unite (in decimal). To keep down memory requirements, 
the meximum nusber of units eupported is 16. You will then be 
esked the following questions for each unit: 


MODE REGISTER ADDRESS (0) 171400 ? 


In reply. should enter en eddress in octel in the range 
160000 to 177770. 


VECTOR ADDRESS (0) 400 ? 
PRIORITY LEVEL (FOR OUTPUT “we ee TYPE “O") (0) 4 ? 
(FOR LSI WITH FIXED PRI. USE LEVEL 4 ONLY) 


The following illustrates the response to the hardware 
questions. In this exemple, the veer response is underlined :- 


CHANGE HARDWARE (L) ? Y <cr> 
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@UNITS (D) ? 2 <cer> 
WITO }—” 
MODE REGISTER ADDRESS (0) 171400 ? <cr> 
VECTOR ADDRESS (0) 400 ? <er> - 


PRIORITY LEVEL (FOR OUTPUT MODULES, TYPE “O”) (0) 4 ? O <er> 
(FOR LSI WITH FIXED PRI. USE LEVEL 4 OMY) j=  ------ 


UNIT 1 
MODE REGISTER ADDRESS (0) 171000 ? 171410 <cr> 
VECTOR ADDRESS (0) 0 ? 410 <er> 


PRIORITY LEVEL (FOR OUTPUT MODULES, TYPE RETURN) (0) 0 ? 4 <er> 
(FOR LSI WITH FIXED PRI. USE LEVEL. 4 OMY) = ------ 


Notice that the defeult value for the priority level c 

when ea non-defeult response is given. This is true for all of 
on & : re questions, so be cereful when specifying multiple 
units! 


2.5 Software questions 


After you heve enewered the herdwere questions or efter a 

restert or continue command, the runtime eee te aok — 

softwere peremeters. These perameters govern di egnost 

rae pt Sanewey you will be prompted by “Chance su (0) 2", “the 
normel response for field service is to type “N 


The next question to be “QUICK VERIFY MODE ?”. This is intended 
for @ quick test of the module integrity before connecting up 
test equipment for full tests. 

QUICK VERIFY MODE (L) N ? 


If the enewer to this question is “Y", only one iteration of 
each test will be at atom Bn ~ 9 hype some testing is done 


more then once —epactetie @ piece of logic in this way 
often qoteete feulte which e evsingle test would not. Therefore, 
ee ww test the herdwere, the answer to this question should 


The followi illustrates the response to aie softwere 
questions. user response is underlined 


CHANGE SOFTWARE (L) ? Y <cr> 


QUICK VERIFY MODE (L) N ? <cr> 


SEQ 0008 
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2.6 Extended p-table dialogue 


When you enswer the herdwere questions, you ere building entries 
in @ teble thet describes the devices under test. The simplest 
way to build this teble is to enewer ell questions for each 

unit to be tested. If you ere testing several identical devices, 
this Sapenae tedious since most of the enswers are the same for 
each unit. 


To :llustrate e more efficient method, suppose you ere testing 
four IDV-11 0 modules. 

You could enswer the herdwere questions for each of the four units 
es shown in section 2.4. 


The runtime services can take multiple unit specifications 
however. Let's build the seme table using the multiple 
specification feeture: 


CHANGE HARDWARE (L) ? Y <cr> 
@UNITS (D) 24 <em>” 

yea ot Ces 

MODE REGISTER ADDRESS (0) 171400 ? 171400,171410,171420,171430 <er> 


PRIORITY LEVEL (FOR OUTPUT MODULES, TYPE “O”) (0) 4 ? <cr> 
(FOR LSI WITH FIXED PRI. USE LEVEL 4 ONLY) ---- 


As can see in the above dialogue, the runtime services oth 
build es many entries es it can with the informat ion oa = @ Ivi1- 5 


any one pess through the questions. In this example, 
modules et eddresees 174000, 174010, 174020 and 174030 ere se 

up with lh on 400,410,420 and 430. All have priority level 4 
2.7 Clock questions 


If there is no line aire clock on the system, the user is esked 

to type 2 cherecters 6 seconds apart on the console. This should 
be done es epeuretety es poesible since the interval is used by 
the diagnostic to celculete velues for device timeouts. 


2.8 Quick stert-up procedure (XXDP-+) 


To stert-up this progrem: 
1. Boot XXDP-+ 


2. Give the date end answer XXDP + questions 





| USER DOCUMENTATION MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 5-5 


3. Type “"R ZIOV??". ¢ —— the revision and patch 
level ere typed insted of the 
question marks. The form shown 
here ceuses the letest version to 
be run. ) 


4. Type “START” 

5. For stenderd ee. using eddresses 171400 to 
171770 enewer " question with "N”. To test 
specific er thay or Ne et non-stenderd eddresses answer 
“Y" end enewer ell of the herdwere questions. 

6. Anewer the “CHANGE SW” question with “N” 

When follow this procedure you will be using only 

defaults for flegs end softwere peremeters. These defeuite 

ere described in sections 2.35 and 2.5. 


2.9 Using the XXDP+ SETUP utility 


To enable the e ic to automatically establish the IXV11 
the haerdwere 


configuration in field, the — teble is preset for 
16 units, each with e mode eddress of 0. If the XXDP+ SETUP 


utility is used to preset the p teble for e perticuler 
meres (age ony then the diagnostic will not eutometicelly 
abliesh the yy aap ot eye A et stertup. In this case, the 
diegrostic can be made to do automatic configuration by 
enewer ing tice questions to give 16 units with mode 


EG. CHANGE HARDWARE (L) ? Y <cr> 


@UNITS (D) ? 16 <cr> 


UNIT 0 
MODE REGISTER ADDRESS (0) 0 ? 0,0,0,0,0,0,0,0,0,0,0.0,0,0,0,0 <cr> 


PRIORITY LEVEL (FOR OUTPUT MODULES, TYPE “O”) (0) 4 ? O <cr> 
CFOR LSI WITH FIXED PRI. USE LEVEL 4 OMY) ~~ ----- 
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3.0 Error information 


There ere three aoa agg ed of error messeges that may be issued by oe 
diegnostic : generel, besic and extended. Generel error 
messeges ere alweys printed unless the “IER” fleg is set 
(section 2.3). The generel error message is of the form : 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


where NAME = diagnostic 
TYPE = error type (Ys FATAL, DEV FATAL, HARD or SOFT) 


* error number 
UNIT NUMBER = 0 - N (N is lest unit in pteble) 
TST NUMBER = test and svdtest where error occurred 
PC: XXXXXX © eddrees of error messege cell 


Besic error —, are eS ee contein some edditionel 
information ebout the error printed unless 

the “IER” or “IBR” flegs ere set (section 2.5). These messeges 
oo apkahed | efter the essociated generel message. 


Extended error contain lementery error information 
such es ister con or dete. These ere elways 
printed un thre ° "IER", * “IxR“ flege ere set (section 


2.3). These messages ere printed vofter the eeeociated general 
error meseege end any eescciated besic error messages. 


3.2 Specific error messages 


All specific error ere explained with the test 
descriptions in section oO. 


ee oe . .  -  - —_—-} 





| USER DOCUMENTATION 


rm a a 


M1 


MACRO VOS.00 Wednesday 05-Oct-84 14:03 Page 7 


4.0 Performance end progress reports 


At the end of each pess, the pess count is given elong with the 
totel number of errors reported since the di tic wes started. 
The “EOP” euitch cen be used to control how often the end 

of poses message is printed. Section 2.2 describes switches. 


4.1 Print commend utilizetion 


The “PRINT” commend cen be used to find out how many errors have 
eccurred on each unit since the diegnostic wes sterted. 


In eddition, the command cen be used to displey the 
configuration thet the diagnostic is vagetey ty ww - to print e 
list of test titles, or to show how to make di tic 
reestablish the configuretion.. The following exemples show how 
the print command cen be used. User input is underlined : 


TYPE T.R.C.S OR HELP (S) H ? <er> 


THE FOLLOWING COMMANDS ARE ACCEPTED : - 


T - PRINT TEST TITLES 

R - PRINT HOW TO REESTABLISH THE SYSTEM CONFIGURATION 

C - PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC 
S - PRINT STATISTICS TABLE 

TYPE T,.R.C.S OR HELP (S) H ? 


rt “H", “HELP” or eny cherecter other then “T", “R", 
pe the rout ine prints the ebove help message listing 
the oncuniiihe COBERRTVIB . 


PRINT <cr> 


“eee eee 


TEST TITLES 
1 REGISTER NXM TEST 
2 T TEST 
3 R-W BIT TEST 
: An 9513 — TEST 
6 
7 SIGNAL GENERATION ON COUNTER 
8 » NOT ISOLATED 
9 EXTERNAL » ISOLATED 
10 UP/DOWN COUNTING APPLICATION TEST 
11 VISUAL LED TEST - SPECIFICALLY SELECTABLE 
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DR> PRINT <cr> 


IDV/IAV11 MODULE STATISTICS. 
UNIT ERRORS DROPPED 


0 : NO 
1 YES 
2 UNTESTED NO 


Here, unit 0 hes shown no feults, _unit 1 hes hed 6 errors end 
been dropped 2 


TOV/IAV11 MODULE CONFIGURATION. 
ADDRESS VECTOR ID/MODE MODULE COMMEND 
ASSUMED 


171000 NONE 060/000 DIG. OUT CANNOT BE TESTED WITH THIS DIAG 
171410 410 030/002 OIG. IN CANNOT BE TESTED WITH THIS DIAG 
NONE AN. OUT CANNOT BE TESTED WITH THIS DIAG 
420 100/000 AN. IN CANNOT BE TESTED WITH THIS DIAG 
171700 NONE 320/000 ee CANNOT BE TESTED WITH THIS DIAG ese 
NONE UNKNOWN 


UNKNOWN 
171400 400 300/000 FIVE CHA. CNT 


The third column is lebeled “VECTOR ASSUMED” for the following 
reesons. If the Rg my? is confi eenet tently by 
answering “NO” “CHANGE “ QUESTION, devices with 
eddresses lower than 171400 ere eseumed to have no vector. Above 
this eddress, the vector is essumed to be the seme es the low 9 
bite of ee, eddress. if the herdwere questions were enewered, 
the vector is printed es it was typed, except thet zero vectors 
ere oriated | A PONONE * 


The above exemple is selected to illustrete the different 
features of the configuration printout. 


If addressing the unit under test ceuses e bus then 
“UNKNOWN” is printed for the ID/MODE end MODULE eee This Ss 
shown for unit 5. This would normelly i occur if eddress 
wes incorrectly typed in the herdwere 





USER DOCUMENTATION 


Be 


MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 7-2 


OR> PRINT <cr> 


To reestablish the system configuretion, enewer the 
herdwere question typing "0" es the mode eddress for 16 wits. 


eg. mode register eddress (0) 0 ? O,.sscsseesccees 


Typing “R" gives you information on how to reestablish the 

system configuretion. This is necesnery if the H/W questions 

heave been enewered or the herdwere iteelf hese been changed and 

vps want to find out whet is in the system without rebooting the 
iegnostic. 


-* 


Ce 
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5.0 Device informetion tebles 


ques 
cen be diepleyed on the console by using either the “DISPLAY” 
a in section 2.1 or the “PRINT” commend described 
in eection 4. 


The hercwere p teble ie set uw for field service for 16 wits, 
eech with e acde eddress of 0. If the user “NO” the 
"CHANGE HARDEE © 


i 
i 


Using the XXDP+ SETUP utility, 
contain information for epecific systems. However, especiel cere 
aust be teken if it is desired to restore the self configuring 
feature of the diagnostic. See section 2.9. 
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6.0 Test summer ies 


This test checks thet eccessing the device MODE, CSR. CCR end 
INR registers does not ceuse e NXM trep. 


The following error may be printed : 


Error 101 : REGISTER ADDRESSING ERROR - TRAP TO 4 
REGISTER AT XXXXXX DOES NOT RESPOND 


This could meen thet the device eddress ewitch is 


incorrectly set, thet the eddrees wae entered incorrectly in 
the stertup questions, or thet the device does not respond. 


This test checks thet yo hogy MOD AND INR registers ere 


Test 2 - Reset Test. 
the @ tested. 
NOTE: The CSR and the CCK ty cen oot be cleered by init 
a 


Error 201 : LED BIT IN MOD REGISTER NOT CLEARED AFTER BUS RESET 
Error 202 : LED BIT IN MOD REGISTER CAN'T BE SET 
Error 2035 : REGISTER INCORRECT AFTER BUS RESET 

ADDRESS: AAAAAA, GO0D:GGGGGG, BAD: 868888 


Test 3 - Register R/W Bit Test. 


This test checks thet the read/write bits of — register can 
ell be set, ell cleared and individuelly set 


the following errors may be printed : 
Error 301 : REGISTER READ/WRITE BITS COULD NOT BE SET 
ADDRESS: AAAAAA, GOOD: GGGGGG, BAD: 888886, A/W BITS: RARRRR 
| 
| 


Error 302 : REGISTER READ/WRITE BITS COULD NOT BE CLEARED 
ADDRESS: AAAAAA, GO0D:GGGGGG, BAD: 886888, R/W BITS: RRRRRR 


Error 303 ;: REGISTER READ/WRITE BITS COULD NOT BE INDIVIDUALLY SET 
ADORESS: AAAAAA, GOO0:GGGGGG, BAD: 888888, R/W BITS: RRRRAR 


TEST 4 - AM 9513 SUBREGISTER TEST - FIVE CHANNEL COUNTER 


eno ee Lee ee EID NG on ee ee oY 


EO 
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THIS IS THE FIRST TEST TO REFERENCE THE AM9515 
SUBREGISTERS. FOR ALL FIVE CHANNELS IT TESTS 

THAT IN TOGGLE MODE THE OUTPUT CAN BE SET AND CLEARED. 
IT THEN TESTS THAT THE LOAD AND HOLD REGISTERS 

CAN BE LOADED AND READ OUT. 


ERROR pos ERROR - UNABLE TO CLEAR ‘OUT’ BIT , CHA.: X 


IN TOGGLE A ‘CLEAR TOUT’ COMMAND WAS LOADED. 
THE STATE WAS READ BACK AS SET. 


ERROR 402 ERROR - UNABLE TO SET ‘OUT’ BIT . CHA.: X 


‘SET TOUT’ COMMAND WAS LOADED, AND THE STATE 
WAS READ BACK AS CLEARED. 


ERROR 404 ERROR WRITING TO LOAD REGISTER OF CHA.: Xx 
WRITTEN: XXXXXX, READ: XXXXXX 


| 

| 
THE LOAD REGISTER WAS LOADED WITH THE SPECIFIED 
VALUE, BUT ANOTHER VALUE WAS READ BACK. 


ERROP 405 ee ee ee 
WRITTEN: XXXXXX, READ: 


THE MOLD REGISTER WAS LOADED WITH THE SPECIFIED 
VALUE, BUT ANOTHER VALUE WAS READ BACK. 


TEST S - INTERRUPT TEST - FIVE CHANNEL COUNTER 
wae ee! See =e THE INTERNAL INTERRUPT LOGIC IS ABLE 
TO CAUSE AN INTERRUPT USING THE VECTOR AND THE PRIORITY LEVEL 
SELECTED IN THE START UP QUESTION. 
AT FIRST WE SELECT TOUT TOGGEL MODE FOR THE FIRST CHANNEL. 
THEN WE CLEAR TOUT AND SET THE INTERRUPT ENABALE BIT FOR 
THE SELECTED CWOGEL. 
NOM WE TEST THAT THE ‘SET TOUT’ COMMAND WILL SET THE INTERRUPT 
REQUEST BIT IN THE INTERRUPT REGISTER. 
Cer ts hel tan in cate 
INTERRUPT WILL ALSO CAUSE AN INTERRUPT FOR THE 


ee ee ee Ete pen at anh MASTER ENABLE BIT. 


& 
= 
ae 
f 
fas 
5 
ta 


ERROR 501,502 ERROR - INR REGISTER INCORRECT AFTER LOAD ‘CLEAR TOUT’ COMMAND 
GOOD : NNN, BAD : NNNINNIN 


| 
ERROR SO3 ERROR - IR BIT IN THE INR REGISTER NOT RESETED AFTER BIT CLEAR 
| GOOD ; NNNNINN BAD : NNNNNIN 


SEQ 0017 
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ERROR 504,505 ERROR - UNEXPECTED INTERRUPT DETECTED 
AN INTERRUPT WAS DETECTED BEFORE ALL CONDITIONS 
REQUIRED FOR AN INTERRUPT WERE SATISFIED. 

ERROR S06 ERROR - EXPECTING ONE INTERRUPT, ENCOUNTERED : Xxx 


A ‘SET TOUT’ COMMAND WAS LOADED TO PRODUCE ONE 
err : VER, THEN INDICATED NUMBER WAS 


ERROR 507 ERROR - BAD INTERRUPT VECTOR DETECIES 
SET UP VECTOR: NNN FOUND VECTOR: NNN 


SET UP:NNN FOUND : NNN 


ERROR S09 ERROR - MASTER pg BIT IN INR REGISTER NOT RESETED AFTER INTERRUPT 
INR CONTENS IS 


TEST 6 - AM 9513 REFERENCE FREQUENCY TEST - FIVE CHANNEL COUNTER 


THIS IS A _TEST OF THE REFERENCE Y. 
Is THE LOAD 
REGISTER IS LOADED . ALL F COUNTERS 


THAT THE 
OIFFERENCE BETWEEN ALL FIVE COUNTERS IS NOT GREATER 


ERROR 601 UNEXPECTED DIFFERENCE BETWEEN COUNTER 
SHOULD NOT BE GREATER THAN 2 


COUNT DOWN FROM 10,000 AT S MHZ FOR 3 NOP INSTRUCTIONS 


THIS IS A TEST OF SIGNAL GENERATION ON TIMER INPUT. 

THE INTERNAL LOOPBACK MODE IS SELECTED AND THE OUTPUT 
FROM CHANNEL N-1 IS USED AS INPUT TO THE COUNTER. 

THE COUNTER IS ALLOWED TO RUN FOR FIVE NOP INSTRUCTIONS. 
A TEST IS THEN MADE THAT THE COUNTER INCREMENTED. 


' 
ERROR 508 ERROR - INTERRUPT DID NOT OCCURED AT THE CORRECT PRIORITY LEVEL 
| 
| 
| 
| 








eee + ae we a ee ee ee ee ee ss 


Go 
G 
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THIS IS REPEATED FOR ALL FIVE COUNTER. 
ERORO 701 COUNTRE X DID NOT INXCREMENT 
THE COUNTER SHOULD HAVE INCREMENTED AWAY FROM ZERC. 


TEST 6 - EXTERNAL LOOPBACK, NOT ISOLATED 


COUNTER. COUNTER IS ALLOWED RUN FOR THREE 
NOP INSTRUCTIONS, AND A TEST IS MADE THAT THE COUNTER 
INCREMENTED. THIS IS REPEATED FOR ALL FIVE COUNTERS. 


ERROR 801, COUNTER X DID NOT INCREMENT, SOURCE x 
ENSURE THAT TEST CONNECTOR IS INSTALLED 
802 COUNTER X DID NOT 


INCREMENT, GATE X 
ENSURE THAT TEST CONNECTOR IS INSTALLED 


THE COUNTER SHOULD MAVE INCREMENTED AWAY FROM ZERO. 
THE INPUT WAS EITHER A SOURCE OR A GATE SIGNAL. 


TEST 9 - EXTERNAL LOOPBACK, ISOLATED 


THIS IS A TEST OF EXTERNAL LOOPBACK, ISOLATED. 
THE OUTPUT F CHED OFF THEN 


MeOve IS R 
ee 2 we SS eee, eee OuT2 


TO 4 OF COUNTER 3. 
ee eee tee ee ee 
IS LOOPBACK TO SOURCE 5S + GATE 1 


E.T.C. 
THE LOOPBACK SIGNAL FREQUENCY IS APPOXIMATLY 100 kHz. 
ERROR 901, COUNTER X DID NOT INCREMENT, SOURCE X 
ENSURE THAT TEST CONNECTOR IS INSTALLED 
902 COUNTER X DID NOT INCREMENT, 


GATE X 
ENSURE THAT TEST CONNECTOR IS INSTALLED 


THE COUNTER SHOULD HAVE INCREMENTED AWAY FROM ZERO. 
THE INPUT WAS EITHER A SOURCE OR A GATE SIGNAL. 


HO 


SEQ 0020 
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TEST 10 - UP/DOWN COUNTING APPLICATION TEST 


THIS IS AN UP/DOWN APPLICATION TEST. THIS TEST 
USES THE OUTPUTS FROM TOUT Ne 3 AND 4 AS INPUT TO 
1 AND 2. WHEN TOUT Ne4 SETS AND TOUT Ne3S 
| IS SET, THEN COUNTER 1 SHOULD INCREMENT. THE 
SIGNAL TOUT Ne3 SETS A | TOUT Ne4 IS RESET, 
AND COUNTER 2 SHOULD NOT INCREMENT. 
SETTING AND CLEARING OF TOUT N=3 AND 4,’ 
v REPEATED 


: 
g 
i 5 


CONTAIN A VALUE OF ZERO 

ERROR 1001 BAD COUNTER VALUE, EXPECTED 10000, DETECTED Xxx 
yoy st FB BR Ry ee BA PA a 
OF 1 THESE SIGNALS WERE INPUTED TO COUNTER 1 
WHICH WAS SET TO THe ACTIVE HIGH MODE. a 
OF 10000 SHOULD HAVE RESULTED, BUT THE INDICATED 
VALUE WAS DETECTED. 

ERROR i002 BAD COUNTER VALUE, EXPECTED 0, ENCOUNTERED Xxx 
OUTPUTS 3 AND 4 WERE USED AS INPUT TO COUNTER 2. 
COUNTER 2 WAS SET TO ACTIVE LOW, AND THESE SIGNALS 
SHOULD NOT HAVE INCREMENTED THE COUNTER. 

ERROR 1003 BAD COUNTER VALUE, EXPECTED 0, ENCOUNTERED Xxx 
OUTPUTS 3 AND 4 WERE USED AS INPUT TO COUNTER 1. 
COUNTER 1 WAS SET TO ACTIVE LOW, AND THESE SIGNALS 
SHOULD NOT HAVE INCREMENTED THE COUNTER. 

ERROR 1004 BAD COUNTER VALUE, EXPECTED 10000, DETECTED Xxx 


OUTPUTS 3 AND 4 WERE TOGGLED 10 PRODUCE A 
| 
| 
| 


| 0 
MUST HAVE A VALUE OF 1 


COUNT 
OF 10000. ESE SES ee Device ee 8 
WHICH WAS SET TO THE ACTIVE HIGH MODE. A COUNT 
OF 10000 SHOULD HAVE RESULTED, BUT THE INDICATED 
VALUE WAS DETECTED. 


ERROR 1005 ERROR LOADING TOGGLE, WRITTEN XXX, READ: XXX 


EVERY TIME A TOGGLE OUTPUT IS SET OF CLEARED, 

THE SIGNAL IS READ BACK AND TESTED FOR THE CORRECT 
STATE. IF THE EXPECTED STATE IS NOT DETECTED. 
THIS ERROR MESSAGE IS PRODUCED. 





a a 


Ie 


SEQ 0021 
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6.1 SECIFICALLY SELECTABLE TEST 


This test is e visuel test. It fleshes the LED on and off on 
every module in the system that is found by the eutomatic 
configuration routine or selected in the herdwere questions. 
The test runs until "CNTL C” is typed. 


Errors : This test has no error messages. 


é 


| 





a ee ee + eS 
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. TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 


-ENABL ABS,AMA 


soe 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
s THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
tie 


POINTER ALL 


HEADER CZIDV,A,0,150,0,340 


_ en 
a 
oe 
a 3 a ee ee + 

—- 


Ke 
| PROGRAM HEADER AND TABLES MACRO VOS.00 Wednesde -Oct- ‘ SEQ 0023 
| DISPATCH TABLE y 03-Oct-84 14:03 Page 11 
1123 .SBTTL DISPATCH T 
ret CH TABLE 
TE : THE 
: DISPATCH TABLE CONTAINS THE STARTING ADORE 
re ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO cACH vest. — 
gg? 


1129 
Ww 002122 DISPATCH 11. 





a i rc 


PROGRAM HEADER 
AULT HARDWARE 


1162 
1163 002162 


TABLES 
P-TABLE 


. 
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.SBTTL DEFAULT HARDWARE P-TABLE 


gee 
s THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
s THE he 2 og. PARAMETERS. THE STRUCTURE OF THIS TABLE 
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
ae 


BGNHW = «OF PTBL 
-WORD 171400 s MODE REGISTER ADDRESS 
-WORD 400 s VECTOR ADDRESS 
-WORD PRIO4 s PRIORITY LEVEL 

ENOHW 


. et hee ee 


| PROGRAM HEADER AND TABLES 
| SOFTWARE P-TABLE 


3 
os 002164 000000 
11866 002166 


Me 


SEQ 
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-SBTTL SOFTWARE P-TABLE 


tee 

; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
’ A tee: TIME AND MAY BE VARIED BY THE OPERATOR 


gee 
BGNSW = =SFPTBL 


QvP:: -WORD O ; QUICK VERIFY ? (0 = NO) 





a  —  -  -  -  e S  E —_ — 


Ne 


SEQ 00. 
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| HARDWARE PARAMETER CODING SECTION 

1188 -SBTTL HARDWARE PARAMETER CODING SECTION 
1169 
1190 pee 
1191 3 THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
1192 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
1193 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT a 
1194 3 vt te Spy A 8 SUPERVI TA STRUCTURES. 
1195 MACROS ——— TO ESTABLISH COMMUNICATIONS 
1196 3; WITH THE OPERAT 
| 1197 7s 
1198 
1210 
1211 002170 GPRMA G1,0,0,5,177776, YES 3 MODE ADDRESS 
i2 002200 GPRMA G2,2,0,0,770, YES a VECTOR 
a4 002210 GPRMD G3,4,0,340,0,6, YES ° PRIORITY 
1215 002222 10% ENDHRD 
1216 
1223 
1224 -MLIST BEX 
1225 002222 115 117 104 Gil: -ASCIZ /MODE REGISTER oe 
1226 002250 126 105 103 G2: -ASCIZ /VECTOR ADDRESS 
1227 002270 120 122 111 G3: -ASCII /PRIORITY LEVEL / 
1228 002307 012 015 050 -ASCIZ eet LSI WITH FIXED PRI. USE LEVEL 4 ONLY)/ 





nh TN eee ee —_————— +7 


B3 | 


SEQ 0027 
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SOF TWARE PARAMETER CODING SECTION 

1232 .SBTTL SOFTWARE PARAMETER CODING SECTION 

1233 

1234 gee 

1335 } THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

1236 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

1237 : ARE NOT EXECUTED INSTRUCTIONS BUT ARE 

1238 } INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 

1239 | MACROS ALLO THE SUPERVISOR 10 ESTABLISH COMMUNICATIONS 

1340 1 WITH THE OPERATOR. 

1241 s-- 

1242 

1243 002364 BGNSFT 

1244 

1253 

1254 002366 108:  GPRML G16,0,-1, YES + QUICK VERIFY MODE ? 

1256 LEVEN 

1257 

1258 002374 ENDSFT 

1259 

1266 

1267 MIST BEX 

1268 002374 «= 121.,—i<“(ié‘«wSs«LL.«CGG: = LASCIZ QUICK VERIFY MODE/ 

1269 "LIST BEX 

1270 

1271 

1272 

1273 002416 ENOMOD 


GLOBAL AREAS __MACRO V0S.00 
SOFTUARE PARAMETER CODING SECTION 

1286 

1287 

1315 

1325 

1326 002416 

1327 

1328 

1329 

1330 

1331 

1332 

347 

1348 002416 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
000037 
000036 
000035 
000034 


OO, 
CN | 


SEQ 0028 
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- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 
BGNMOD 
gee 
: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
s ARE USED IN MORE THAN ONE TEST. 
gee 
EQUALS 
3 
s BIT OIF INITIONS 
é 
BITIS*= 100000 
40000 


EVENT FLAG DEFINITIONS 
s  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


er. STARTe= 32. s START COMMAND WAS ISSUED 

EF .RESTARTe* 31. s RESTART COPPWO WAS ISSUED 

EF .CONTINUE** . s CONTINUE COMMAND WAS ISSUED 
-NEWee . 1 A NEW PASS HAS BEEN STARTED 

EF .PuRee s A POWER-FAIL/POWER-UP OCCURRED 


s PRIORITY LEVEL DEFINITIONS 


PRIOT#* 340 





AREAS 
GLOBAL EQUATES 


GLOBAL 


wn ee ee 


MACRO VOS.00 Wednesday 03-Oct-64 14:03 Page 16-1 


SECTION 


171000 
171770 


MéTOGee 


IXSTAss 
IXEND== 


171000 
171770 


LT Le ~- ae ae 7 


D3 


SEQ 0029 | 


sCOUNTER COMMAND AND STATUS REGISTER 
sCOUNTER CONTROL REGISTER 
sCOUNTER INTERRUPT REGISTER 


sMIGH BITS MUST BE SET 
sLOAD COUNTER 

sARM ALL SELECTED COUNTERS ‘ 
sSAVE AMD DISARM ALL SELECTED COUNTERS © 
sMASTER RESET 


rig 


COUNTERS 
sCOUNTER MODE REGISTER, OUT TOGGLE 


s FIRST STANDARD IDV/IAV-11 ADDRESS 
s LAST STANDARD IDV/IAV-11 ADORESS 





me 


E3 
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| GLOBAL AREAS 
| GLOBAL DATA SECTION 


404 

1405 

1406 

1407 002474 000000 
002476 900000 

1409 002500 000000 

1410 

1411 

1412 002502 000000 

1413 002504 000000 

1414 002506 000010 

1415 002510 000000 

1416 002512 000000 

1417 

14186 

1419 

1420 


.SBTTL GLOBAL DATA SECTION 


‘¢ 
: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 

ge 


MOD: : -WORD O s MODE REGISTER ADDRESS OF CURRENT UUT 
CSR:: -WORD O 3 COMMAND AND STATUS “ak ADORESS OF UUT 
CCR:: -WORD O s COUNTER CONTROL REGISTER A ADDRESS OF UT 
INR: : .WORD O s INTERRUPT REGISTER ADORESS OF 
VEC:: -WORD O s VECTOR ADORESS OF CURRENT UUT 
PRIO:: -WORD O s PRIORITY LEVEL OF CURRENT UT 
3: WORKING STORAGE 
SAVPRI: : WORD O s SAVED PRIORITY 
BITMSK:: -WORD O s FOR BIT MAP 
BITMS1:: -WORD O s GENERAL BIT .MASK 
BITMS2: : -WORD O 3 GENERAL BIT MASK 
NUMBER: : -WORD O 3s GENERAL 
COUNTR: : -WORD O 3 GENERAL 
GROUP: ; .WORD O 3 CURRENT GROUP 
ELEMNT:: -WORD O 3 CURRENT 
CNTVAL:: -BOLkKW 5 s MOLOS VALUES FROM COUNTERS 
SRC:: -WORD O 3s SOURCE FOR A TEST 
LOOP: : -WORD O 3 GENERAL L 
G:: -WORD O s SET IF s 
BIV:: -WORD O s HOLD VEC T 
s IF T OIO NOT OCCUR THROUGH 
s SPECIFIED VECTOR 
GOOO: : -WORD O EXPECTED CONTENTS 
BAD:: WORD O s 
SFI:: . WORD s FLAG TO FORCE ERROR PRINTOUTS 
ANS: : -WORD O 8 STORE FOR MANUAL INPUTS 
ITRCNT:: . WORD 3 ITERRAT 
ITROEF : : -WORD 10 3s ITERRATION DEFAULT 
INTFLA:: WORD O 3 DONE T FLAG 
tt -WORD O 3 ERROR INTERRUPT FLAG 
ECNT: : -WORD 100000 ,; ERROR COUNT FOR UUT O - BIT 15 IS SET TO 
-WORD 100000 ; ERROR COUNT FOR UT 1 - FLAG NOT TESTED. 
-WORD 100000 ; ERROR COUNT FOR UT 2 
-WORD 100000 ; ERROR COUNT FOR UT 5 
«WORD 100000 ; ERROR COUNT FOR UUT 4 
-WORD 100000 , ERROR COUNT FOR UUT 5 
-WORD 100000 ; ERROR COUN] FOR UUT 6 





$$ —__—_—__-- -— 


FS de Sekar & | 


SEQ 00 
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1430 002532 100000 .WORD 100000 , ERROR COUNT FOR WUT 7 
1431 002534 100000 .WORD 100000 ; ERROR COUNT FOR UUT 8 
1432 002536 100000 .WORD 100000 ; ERROR COUNT FOR UT 9 
1433 002540 100000 .WORD 100000 ; ERROR COUNT FOR WUT 10 
1434 002542 100000 .WORD 100000 ; ERROR COUNT FOR UUT 11 
1435 002544 100000 .WORD 100000 ; ERROR COUNT FOR UUT 12 
| 1436 002546 100000 .WORD 100000 ; ERROR COUNT FOR UUT 13 
1437 002550 100000 .WORD 100000 ; ERROR COUNT FOR UUT 14 
1438 002552 100000 .WORD 100000 ; ERROR COUNT FOR UUT 15 
1 
1440 002554 000000 GPADD: : .WORD 0 § PARAMETER ADORESS FOR UNIT 0 
1441 002556 000000 -.WORD O 3 PARAMETER ADORESS F 1 
1 002560 000000 WORD 0 3 PARAMETER ADORESS FOR UNIT 2 
1443 002562 000000 .WORD 0 : ADORESS FOR UNIT 3 
1 002564 000000 .WORD 0 3 PARAMETER ADORESS FOR UNIT 4 
1445 002566 000000 .WORD 0 s PARAMETER ADORESS FOR UNIT 5 
1446 002570 000000 .WORD 0 3 PARE ADORESS FOR UNIT 6 
1447 002572 000000 WORD 0 3 PARAMETER ADDRESS FOR UNIT 7 
1448 002574 000000 .WORD O s Pi ADORESS FOR UNIT 68 
1449 002576 000000 .WORD 0 3 PARAMETER ADORESS FOR UNIT 9 
450 002600 000000 WORD 0 3 Pi ADORESS F T 10 
1451 002602 000000 .WORD 0 3 PARAMETER ADORESS FOR UNIT 11 
1452 002604 000000 .WORD 0 : 
453 002606 000000 .WORD 0 i 13 
1454 002610 000000 .WORD 0 1 PARAMETER ADORESS FOR UNIT 14 
103 002612 000000 .WORD 0 3 PARAMETER ADORESS FOR UNIT 15 
4037 002614 OROPED: : -CLKB 16. 3 UNIT DROPPED FLAGS 
1459 002634 000000 TSTFLG: : .WORD 0 3 CLEARED AT START OF EACH PASS 
s SET IF ANY TEST IS SELECTED 
1461 002636 000000 TSUFLG:: . WORD 3 CLEARED AT START OF EACH UNIT'S PASS 
1462 3 SET IF ANY TEST IS SELECTED 
1463 ; 
lacs 
1466 002640 000000 LOPFLG: : .WORD 0 s SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 0 
1467 002642 000000 .WORD O s SET IF LOOP INE CALLED FOR UNIT 1 
1468 002644 000000 -.WORD 0 s SET IF LOOP CHECK CALLED FOR UNIT 2 
1 002646 000000 .WORD 0 s SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 3 
002650 000000 -WORD 0 3 SET IF LOOP CHECK ROUT CALLED FOR UNIT 4 
1471 002652 0090000 .WORD 0 s SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 5 
1472 002654 000000 WORD 0 s SET IF LOOP CHECK ROUT FOR T6 
1473 002656 000000 .WORD 0 s SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 7 
1474 002660 000000 .WORD 0 + SET IF LOOP CHECK ROUT FOR 8 
002662 000000 .WORD 0 3 SET IF LOOP CHECK ROUT CALLED FOR UNIT 9 
1476 002664 000000 .WORD 0 s SET IF LOOP CHECK ROUTINE CALLED F 10 
002666 000000 .WORD 0 3 SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 11 
1478 002670 000000 .WORD 0 3 SET IF LOOP CHECK CALLED FOR 
1479 002672 000000 .WORD O 3 SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 13 
1480 002674 000000 .WORD 0 3 SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 14 
1003 002676 000000 .WORD 0 3 SET IF LOOP CHECK ROUTINE CALLED FOR UNIT 15 
1465 002700 000000 LOTFLA:: WORD 0 s SET BY INIT CODE IF LOOP ON TEST IS SELECTED 
WORD 0 s TEST CONTROL MASK SET UP BY INIT CODE 


1485 002702 000000 CONMSK ; : 
1486 





G3 
SEQ 00 
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GLOBAL DATA SECTION 
1487 ; BIT O IS SET IF WT IS DIGITAL INPUT 
1488 ; BIT 1 IS SET IF WUT IS DIGITAL OUTPUT 
1489 ; LOW BYTE IS DEVICE CODE ; BIT 2 IS SET IF UWT IS ANALOGUE INPUT 
1490 » BIT 3 IS SET IF UUT IS ANALOGUE OUTPUT 
1491 ; BIT 4 IS SET IF UT IS NONE OF THE 
1492 s ABOVE 
1493 ; BITS S, 6 AND 7 ARE UNUSED 
14 
449s ; BIT 8 IS ALWAYS SET TO SELECT BASIC 
1496 ; INTERNAL LOGIC TESTS 
14 
1498 ; BIT 9 SET TO SELECT FIELD INPUT/OUTPUT 
1499 ; TESTS 
500 
150s ; SELECTED AND ALLOWED FOR CURRENT UUT 
1504 ; BIT 11 IS SET IF MANUFACTURING LOOPBACK 
1505 ; AND INPUT/OUTPUT TESTS ARE SELECTED 
1507 ; BIT 12 IS SET IF A SPECIFICALLY 
1509 ; SELECTABLE TEST IS CHOSEN 
1510 ; BITS 13, 14 AND 1S ARE UNUSED 
1512 002704 000000 MODE:: .WORD 0 : MODE FOR DIGITAL/ANALOGUE CONVERSIONS 
1513 002706 000000 GAIN:: [WORD 0 ; GAIN FOR DIGITAL/ANALOGUE CONVERSIONS 


ADORESS OF PROMPT FOR DECIMAL INPUT ROUTINE 


sats 002710 000000 PADD:: .WORD 0 


1 
1501 : BIT 10 IS SET IF LOOPBACK TESTING IS 
| 
| 





a ee oe ee ee ee ee ee —_——— 4 
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1522 000012 -RADIX 10 | 

1523 -NLIST BEX 

1524 

1525 3 ANALOGUE/DIGITAL CONVERSION TABLES USED BY ROUTINES DACON AND ADCON. 

1526 

1527 : VOLTAGE UNIPOLAR TABLE MODE 0 (0-10V) 

1528 

i. :; BITS il 10 9 8 7 6 5 4 3 2 1 0 

is 

1531 002712 011610 004704 002342 VUPTAB: : 5000 , 2500, 1250, 625, 312, 156, 76, 39, 19, 9, 4, 2 7 ay G=1 

tt 002742 000000 000000 000000 oO, 0, 0, oO. 500, 250, 125, 63, 531, 766, 883, 441 $ uV 

1 

1534 002772 004704 002342 001161 2500,1250, 625, 312, 156, 76. 39, 19, 9% 4 2, 1; av G-2 

ies 003022 000000 000000 000000 0, 0. 0, S00, 250, 125, 63, 531. 766, 863, 441, 221 ; uv 

1537 003052 001750 000764 0003572 1000, 500, 250, 125. 62, 31. 15, 7, 3, ° » O03; av G5 

1538 003102 ° » ©, O, SOO, 250, 625, 615, 906, 953, 977, 4868 ; uw 
003132 000764 000372 000175 S00, 250, 125. 62. 31. 15, Ve 3. 1, 0, 0 ; av G=10 

1541 003162 e 0. oO, ° 250, 625, 613, 906, 953, 977, / 244 30 

1543 003212 000372 000175 000076 250, 125, 62, 31. 15, - 3. i. 0, oO. 0, f] 3 aV G=20 

io. 000000 006000 000764 0, - 500, 250, 625, 813, 906, 955, 977, 468, 244, 122 ; uv 

1546 003272 000144 000062 000031 100, SO, 25. 12. 6. 53, 1, Oo oOo; OO OO; av Ge50 

1547 003322 000000 6 ° 0, ° 250, ° 563, 781, 391, 195, 98, 49 3 uV 

1849 003352 000062 000031 000014 50, 25. l2, 6, 3, 1, Oo, oO, 0. oO. 0, .] 3 av G=100 

sone 003402 000000 000000 000764 0, » 500, 250, 125, 565, 7861, 391, 195, » 4, 243 wW 

000031 000014 25, 12, 6. 3, 1, e 0. oO, 0, 0, 0, 0 3 av G=200 
1553 003462 000764 000372 a o 250, ° 563, 761, 391, 195, e 49, ° 12 3; uV 





Is 
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1556 sVOLTAGE BIPOLAR TABLE (-10 - +10V) MODE 1 
1557 
1558 :; BITS 11 10 9 8 7 6 5 4 3 
1559 
1560 003512 023420 011610 004704 VBPTAB: :10000,5000,2500,1250, 625, 312, 156, 78, 39, 
fen 003542 000000 000000 000000 0, . ° : 0, 500, 5 . 63, 
j 1 
| 1563 003572 011610 004704 002342 5000, 2500,1250, 625, 312, 156, 78, 39, 19, 
1564 003622 000000 000000 000000 0, oO, oO, 0, 500, 250, 125, 63, 531, 
7, 
oH 003702 000000 000000 000000 0, 0, oO, 0, 0, S00, 250, 625, 8615, 
1569 003732 001750 000764 000372 1000, S00, 250, 125, 62. 31. 15, Te 3, 
aay 003762 000000 000000 000000 0, 0, QO, 0, S00, 250, 625, 813, 906, 
1572 004012 000764 000372 000175 500, 250, 125. 62. 31. 15, Ts 3, 1, 
ay 004042 000000 000000 000000 ° 0, 500 625 906 
1575 004072 000310 000144 000062 200, 
1576 004122 000000 0, 
1578 004152 000144 000062 000031 100, 
000000 ° 
15860 
15861 004232 000062 000031 000014 50, 
case 004262 000000 000000 000764 0, 


1565 
1566 003652 003720 001750 000764 2000,1000, 500, 250, 125, 62, 31. 15, 
| 


eee ee ee 


é 1 0 
19, 9, 4; a G-l 
521, 766, 663 ; uV 
9, 4, 23 mV Gr2 
766, 883, 441 ; uV 
Le 0 3 amy G=5 
e 953, 977 3 uV 
i. 0, 0 ; av G10 
953, 977, 486 ; uv 
° 0, 0 ; aV G=20 
244 ; 
f¢] 
98 
0 
49 
0 
24 
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1585 sCURRENT 0-20 mA TABLE - MODE 2 
1586 
1587 ; BITS 11 10 9 8 7 6 5 4 3 2 1 0 
1588 
15869 004312 023420 011610 004704 IOTAB:: 10000,5000,2500,1250, 625, 312, 156, 78, 39, 19, 9 s vA Gel 
lee 004342 000000 000000 000000 ° 0, . ° 0, . . 125, 63, 531, 766, 883 3 nA 
1591 
1592 004372 011610 004704 002342 5000,2500,1250, 625, 312, 156, 78, 39, 19, 9% 4, 3; uA G2 
its 004422 000000 000000 000000 o o oO, ° » 125, + 531, 766, 683, 441 ; nA 
1 
1595 004452 003720 001750 000764 2000,1000, 500, 250, 125, 62, 31. 15. 7. 53, 1, O; mA G=5 
te 004502 000000 000000 000000 0, 0, oO, oO, oO. 500, 250, 625, 613, 906, 953, 977 3 
1 
1598 004532 001750 000764 0003572 1000, 500, 250, 125, 62, 31, 15. 7 3. 1, OO, O; wA G10 
te 004562 000000 000000 000000 0, 6 QO, oO, 500, e r) 613, 9 953, 977, 488 3 fay) 
1601 004612 000764 000372 000175 S00, 250, 125. 62, 31. 15, . 3, 1, O, O, 0O 3; uA G=20 
| 000000 0, 0, oO, 500, 250, ° 613, 906, 953, 977, ° 244 3 na 
1 
1604 004672 090310 000144 000062 200, 100, 50, 25. 12, 6 3 1, QO, 0, OO; wA G=50 
1605 004722 000000 oO, ° » oO, S00, » 125, 563, 781, 391, 195, 98 ; nA 
1607 004752 000144 000062 000031 100, SO, 25. 12. 6. 53z, 1, O, » Oo O, QO; vA G=100 
1 000000 000000 oO. 0. 0, e 250, 125, 563, 781, 391, 195, 98, 49 3 
1610 005032 000062 000031 000014 so, 25. 12. 6 3. 1, Te oO oOo; O O03 vA G=200 
1611 005062 000000 000764 0, ° » 250, 125, 563, 761, 391, 195, » 49, 24 





K3 
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1614 

eee ; CURRENT 4 - 20 MA TABLE (MODE 3) 

ot ; BITS 11 =10 9 8 7 6 5 4 
| 1619 005112 017500 007640 003720 I4TAB:: 8000,4000,2000,1000, 500, 250, 125, 62, 

err 005142 000000 000000 000000 o oo Oo Oo OO OO 0, 500, 
| 1622 005172 007640 003720 001750 3 

ete 005222 000000 000009 

1625 005252 003100 001440 000620 

<> 005302 000000 

1626 005332 001440 000620 000310 

_— 005362 000000 000000 

1631 005412 000620 0003510 000144 

1 000000 000000 

1634 005472 000240 000120 000050 

aees 000000 000000 

1637 005552 000120 000050 000024 

ete} 005602 000000 000000 

1640 005632 000050 000024 000012 

1641 005662 000000 000000 

1642 

1643 

1644 0000; 





vA G=1 
nA 


a ee 
a a — 


L3 


| GLOBAL AREAS MACRO VOS.00 Wednesdey 05-Oct-84 14:03 Page 22 
| GLOBAL DATA SECTION 


1647 

1660 

1661 005712 ERRTBL 
005712 $3 





| GLOBAL AREAS 


1709 
1710 005772 
1711 
1712 
1713 
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.SBTTL GLOBAL TEXT SECTION 


3¢¢ 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

gee 


-NMLIST SEX 


; 
s NAMES OF DEVICES SUPPORTED BY PROGRAM 
; 

DEVTYP <IOV11-0> 


; TEST DESCRIPTION 
; 
DESCRIPT <FIVE CHANNEL COUNTER DIAGNOSTIC> 


; 
s FORMAT STATEMENTS USED IN PRINT CALLS 
; 


045 NODEV:: .ASCIZ \sNSAsee NO DEVICES FOUND IN RANGE 171000 TO 171770 eeesN\ 


-LIST GEX 
- EVEN 
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1723 .SBTTL GLOBAL ERROR REPORT SECTION 
1724 

1725 zee 

1726 ; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
1727 ; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTS 
1728 ; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 
1729 t-- 

1730 

1731 

1747 

1748 006064 BGNMSG EER 

1749 006064 PRINTB #GOOBAD,GOOD.BAD ; PRINT GOOD AND BAD 
1750 006114 004737 014434 JSR PC , CHKMAX ; CHECK FOR TOO MANY ERRORS 
1751 006120 ENOMSG 

1752 

1753 

1754 006122 BGNMSG EER? 

17355 006122 PRINTB @€MG3,GO00,B8AD, 800 
1756 006156 004737 014434 JSR PC , CHKMAX 

re 006162 ENDMSG 

1759 006164 EERS 

1760 006164 PRINTS #€NG4,8CSR 

1761 006210 004737 014434 JSR PC, 

1762 006214 ENDMSG 

1763 

1764 

1765 

1766 006216 EER6 

1767 006216 PRINTS #€MG4,BAD 

1768 006242 004737 014434 JSR PC , CHKMAX 

1769 006256 ENOMSG 

1770 

1771 

1772 

1773 006250 BGNMSG EERA 

1774 006250 PRINTS #€NG1,R1 

1775 006272 004737 014434 JSR PC , CHKMAX 

1776 006276 ENDMSG 

1777 

1778 

1779 006300 BGNMSG EERB 

1780 006300 PRINTB #€MG2,RS,GO0D.BAD 
1781 006332 004737 014434 JSR PC , CHKMAX 

1782 006336 ENOMSG 

1783 

17864 

1785 006340 BGNMSG EERG 

1786 006340 004737 014434 JSR PC , CHKMAX 

1787 006344 ENOMSG 

1788 

17869 

1790 

1791 

1792 

1793 006346 BGNMSG ERR104 

1794 006346 PRINTS #€104,NUMBER 
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1795 006372 
1796 006376 
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004737 014434 


004737 014434 


004737 014434 


004737 014434 


004737 014434 


004737 014434 


004737 014434 


04737 014434 


004737 014434 


004737 014434 


004737 014434 


PC , CHKMAX 


ERR105 
0€ 105, NUMBER 
PC . CHKMAX 


ERR 106 
@€1 


107 


#€107 ,GROUP 
@€107A,COUNTR,RS 
PC , CHKMAX 


ERR106 
0€ 106 , NUMBER 
PC , CHACMAX 


06 , GROUP 
@€ 106A, COUNTR RS 
PC , CHKMAX 


sERROR MESSAGE 


sERROR MESSAGE 
sERROR MESSAGE 


sERROR MESSAGE 
sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


1ERROR MESSAGE 


sERROR MESSAGE 








re Se - ee ee eee. —— 
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1852 007124 BGNMSG ERRSOS 
1853 007124 PRINTB ¢€113 1ERROR MESSAGE 
1854 007144 004737 014434 JSR PC, CHKMAX 
1855 007150 ENDMSG 
1857 007152 BGNMSG ERRSOS 
1858 007152 PRINTB 6€114, INTFLA 1ERROR MESSAGE 
1859 007176 004737 014434 JSR PC, CHKMAX 
1860 007202 ENOMSG 
| 1862 007204 BGNMSG 
1663 007204 PRINTS 6€114A sERROR MESSAGE 
1864 007224 PRINTS 0€1148, VEC.6IV sERROR MESSAGE 
| 1865 007254 004737 014434 JSR PC, CHXMAX 
| 1866 007260 ENOMSG 
1867 
1868 
1869 007262 ERRSO6 
1870 007262 PRINTS €€506 sERROR MESS°GE 
1871 007302 PRINTS GOOD ,BAD sERROR MESSAGE 
1872 007332 004737 014434 JSR PC, CHKMAX 
1873 007336 ENOMSG 
1874 
1875 
1876 007340 BGNMSG ERRSO7 
1877 007340 PRINTS 6€507 sERROR ME 
1878 007360 PRINTS @€507A,BAD sERROR MESSAGE 
1879 007404 004737 014434 JSR , 
1880 007410 ENOMSG 
1883 007412 BGNMSG ERR115 
1884 007412 PRINTS 0€115,NUMBER sERROR MESSAGE 
1885 007436 004737 014434 JSR PC, CHKMAX 
1886 007442 ENOMSG 
1888 007444 BGNMSG ERR130 
1889 007444 PRINTB @STRVA1 
1890 007464 PRINTB é@STRVA2 
1891 007504 012702 000001 MOV @1,R2 
1892 007510 012701 002452 MOV OCNTVAL .R1 
1893 007514 012103 60%: MOV (R1)+ RS 
1894 007516 PRINTS @CNTXT,R2,R3 
7542 INC R2 sCHANNEL NUMBER 
1895 007544 020227 000005 cer R2,05 sALL CHANNELS? 
1897 007550 003761 BLE 608 sMORE TO PRINT 
1896 007552 004737 014434 JSR PC , CHKMAX 
1900 ” 
1901 007560 BGNMSG ERR116 
007560 PRINTS 6€116,NUMBER,R2 s SOURCE 
1903 007606 PRINTS 46€1168 
1904 007626 004737 014434 JSR PC, CHKMAX 
1905 007632 ENDMSG 
1906 
1907 007634 


BGNISG ER116A 
1906 007634 PRINTS #€116A,NUMBER ,R2 





ee ee ee re «ee mi ee ee = Ses es 
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1909 007662 PRINTS #€1168 
1910 007702 004737 014434 JSR PC, 
1911 007706 
1912 
1913 007710 ER1168 
1914 007710 €€116,R2,R3 
1915 007734 £1168 
1916 007754 004737 114434 , 
1917 007760 
1918 
1919 007762 16C 
1920 007762 @€116A,R2,R3 
1921 010006 1168 

01 004737 014434 PC, CHKMAX 
1923 010032 
1925 010034 ERR120 
1926 010034 €€120,RS 
1927 010056 @€1168 
1926 010076 004737 014434 : 
1929 010102 


1930 

1931 010104 

1932 010104 

1933 010126 004737 014434 
1934 010132 

1935 

1936 010134 

1937 010134 

1938 010156 004737 014434 
ees 010162 


i 
1941 010164 


1944 010226 004737 014434 


ENOMSG 
PRINTS 
PRINTB 
ENDMSG 
PRINTB 
PRINTB 
JSR 
ENDMSG 
PRINTB 
PRINTB 
ENDMSG 
BGNMSG 
PRINTB €€121,R5 
JSR PC . CHKMAX 
ENDMSG 
BGNMSG 
PRINTB 
ENDMSG 
PRINTB 
PRINTB 
JSR 
ENDPMSG 
PRINTB 
PRINTB 
1950 010300 004737 014434 JSR 
ENOMSG 


-NLIST BEX 
1961 010306 045 101 107 GOOBAD: .ASCIZ 


1963 010405 045 101 101 ENMG2: 
1964 010455 045 10i 107 ENGS; 


. /$AGOOD : S068A, BAD: SO6EN/ 
1962 010336 045 101 122 €NG1:  .ASCIZ /SAREGISTER AT S06sA DOES NOT RESPONDSN/ 


GOOD: 8068A, BAD: s06sN/ 
BAD: S068A, MOD REGISTER CONTENTS: #068N/ 
ONTENTS IS :s06siN/ 


ASCIZ / s8068A 


1965 010542 045 101 103 EMG4:  ‘ASCIZ /#ACSR REGISTER C 


3 
So 
fw 
= 
z 


+ SOURCE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


sERROR MESSAGE 


| GL 
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1962 011516 
1963 011567 
1964 011641 
1965 011715 
19866 0 


MACRO V 


.LIST BEX 
.EVEN 
-NLIST 
E102: -ASCIZ 
E103: -ASCIZ 
E104; -ASCIZ 
E105: -ASCIZ 
E106: -ASCIZ 
E106A;: .ASCIZ 
€107: -ASCIZ 
E107A: .ASCIZ 
106: -ASCIZ 
E109: -ASCIZ 
€110: -ASCIZ 
Elli: -ASCIZ 
Ell2: -ASCIZ 
E113: -ASCIZ 
E114; -ASCIZ 
E114A: .ASCIZ 
1148: .ASCIZ 
€115: -ASCIZ 
STRVAL: . ASCII 
-ASCIZ 
STAVA2: .ASCIZ 
T; .ASCIZ 
EVEN 
E116: -ASCIZ 
E116A;: .ASCIZ 
E1168: .ASCIZ 
E120: -ASCIZ 
€121: -ASCIZ 
E124: -ASCIZ 
ESO1: -ASCIZ 
€502: -ASCIZ 
E506: -ASCIZ 
€507: -ASCIZ 
ESO7A: .ASCIZ 
EVEN 


E4 


SEQ 0043 
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SPECIAL MODULE BIT IN MADR IS - SET/ 
= (Ct no oa" tte taede att SET/ 


3 
& 


TTEN: SO68A, 
- WR 


= 
g. 


IT WR; 
TINT’ BIT NR: SDISA HAS RESETEN/ 
TECTEDSN/ 
ENCOUNTERED #0550 
T VECTOR DETECTEDSN/ 
/GASET UP VECTOR cObUA FOUND VECTOR :s036N/ 
/SACOUNTER SD1SA OID NOT INCREMENTSN/ 
TED TWEEN COUNTERS siN/ 
/GASHOULD NOT BE GREATER THAN 20N/ 
/SACOUNT 


FROM 10,000 AT S MHZ FOR 3 NOP INSTRUCTIONS .sN/ 
SDISA VALUE: SD6EN/ 


HUE 


: 


/SABAD 
/GRERROR LOADING TOGGLE, WRITTEN SO6SA, READ: s06sN/ 
/GAINR REGISTER INCORRECT 


NOT a AFTER BIT CLEARSN/ 
/GAINTERRUPT DID NOT OCCURRDED AT THE CORRECT PRIORITY LEVELSN/ 
/SAAASTER END BIT IN INR REGISTER NOT CLEARED AFTER INTERRUPTSN/ 
/BAINR REGISTER CONTENS IS :#06sN/ 


: 
aud 
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2018 /SBTTL GLOBAL SUBROUTINES SECTION | 






2021 ; "THE GLOBAL gel — in a THE SUBROUTINES 
2022 3; THAT ARE USED IN MORE THAN ONE TEST 
2023 t-- 


2025 s SUBROUTINE REGTST - GENERAL PURPOSE REGISTER TEST. 






zoe 
s FUNCTIONAL DESCRIPTION: 


CHECKS THAT ALL READ/WRITE BITS OF THE SELECTED REGISTER CAN BE 
SET, CLEARED, AND INDIVIDUALLY SET (SLIDING ONES PATTERN). 


INPUTS: 
IF ENTERED AT LOCATION REGTST, THE LOCATIONS FOLLOWING THE 
SUBROUTINE CALL MUST CONTAIN THE READ/WRITE BIT MASK, THE 
ADORESS OF THE REGISTER TO BE TESTED, AND THE FIRST ERROR NUMBER 
TO BE USED (SEE CALLING SEQUENCE). 
IF ENTERED AT LOCATION REGTS1, THE READ/WRITE BIT MASK, REGISTER 
ADDRESS TO BE TESTED, AND THE FIRST ERROR NUMBER MUST BE LOADED 
INTO ee MASK, REGADD. AND ERRNBR 5; * saan THIS 
ALLOWS THE ARGUMENTS TO BE VARIED AT RUN TIME 

IMPLICIT INPUTS: 
NONE . 

OUTPUTS: 
ERROR MESSAGES IF ERRORS OCCUR. 

IMPLICIT OUTPUTS: 
IF ENTERED AT LOCATION REGTST, 


MASK  - CONTAINS THE READ/WRITE BIT MASK 
REGADD - CONTAINS THE ADORESS OF THE REGISTER BEING TESTED 





















ALWAYS, 

MASCOM - CONTAINS THE COMPLEMENT OF THE MASK 

GOOD - CONTAINS LAST EXPECTED DATA 

BAD - CONTAINS LAST ACTUAL 

ERRNBR - CONTAINS THE INPUT ERROR NUMBER + 2 

ERRTYP - CONTAINS 3 (SOFT ERROR) 

ERRBLK - CONTAINS ADORESS OF REGERR a ERROR MESSAGE ) 
ERRMSG - CONTAINS SRD REGISTER ERROR MESSAGE 


SUBORDINATE ROUTINES USED: 


INSERT - ERROR INSERTION ROUTINE 
ERROR COUNT CHECKING ROUTINE 


; 
; 
3 
; 
: 
; 
; 
; 
; 
; 
; 
3 
; 
; 
; 
; 
; 
; 
; 
: 
; 
; 
; 
; 
j 
; 
; 
i 
; 
; 
; 
; 
: 
; 
; 
; 
5 
; 
’ 
y 
3 
: 
; 
i CHKMAX - 

’ ORS ERROR MACRO 
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GLOBAL 


2130 
2131 013656 


MACRO V 


005037 
005237 
012737 
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002474 
005714 
014174 


005716 


FUNCTIONAL SIDE EFFECTS: 
NONE . 
CALLING SEQUENCE: 


EG. CALL REGTST 
177 3 
CSR $ 
200. 5 
OR PARAMETERS ARE SET DYNAMICALLY 
EG. MOV #177, MASK : 
MOV CSR, 3 
MOV #200., o 
CALL REGTS1 
REGTST:: 
MOV @( SP), MASK 3 
ADD @2,(SP) 3 
MOV @( SP), REGADD 8 
ADO @2.(SP) 3 
MOV @( SP), ERRNBR F 
ADO @2,(SP) 3 
REGTS1:: 
MoV MASK ,MASCOM ’ 
COM OM F 
MOV @3,ERRTYP F 
MOV »ERRBLK . 
MOV @RERR 1, ERRMSG F 
3 CHECK THAT ALL R/W BITS CAN BE SET 
, MOV _—s MASK, GOOD ; 
BIS GOOD , SREGADO ’ 
MOV GREGADO , BAD 3 
BIC MASCOM,BAD 8 
CMP BAD ,GOOD 8 
CALL INSERT 5 
BEQ 10% ’ 
ERROR ’ 
10%: ENDSEG 
CHECK THAT ALL R/W BITS CAN BE CLEARED 
F 
CLR GOO0O i 
INC ERRNBR ’ 
MOV @RERR2 , ERRMSG ’ 
BGNSEG 


SEQ 0045 


EITHER FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL : 


BIT MASK OF R/W BITS 
REGISTER ADDRESS 
FIRST ERROR NUMBER 


: 


BIT MASK OF R/W BITS 
REGISTER ADORESS 
FIRST ERROR NUMBER 


GET R/W BIT MASK 

JUMP OVER ARGUMENT 

GET REGISTER oo 
JUMP OVER ARGUMENT 

GET FIRST ERROR NUMBER 
JUMP OVER ARGUMENT 


SET UP ag ne 
BIT MASK 


SET UP EXPECTED DATA 

SET ALL R/W BITS 

READ THE RESULT 

KEEP ONLY R/W BITS 

ALL R/W BITS SET? 

ALLOW FORCED ERROR PRINTOUT 
IF OK, BRANCH 

ELSE REPORT ERROR 


SET UP EXPECTED DATA 
NEXT ERROR NUMBER 
NEXT ERROR MESSAGE 
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2132 013660 045777 014046 
2133 013666 017737 000160 
2134 013674 043737 014050 
2135 013702 023737 002476 
2136 013710 004737 015240 
2137 013714 001401 
2138 013716 
2139 013720 
21 
si 
2143 013722 005237 005714 
2144 013726 012737 014252 
2145 013734 012737 000001 
2146 013742 033737 002474 
2147 013750 001004 
2148 013752 7 002474 
2149 013756 103427 
2150 013760 000770 
2151 
2152 013762 
2153 013764 0435777 014046 
2134 013772 777 002474 
2155 014000 017737 
014006 043737 014050 

2157 014014 023737 002476 
2158 014022 004737 015240 
see Seeeee 001401 
2161 014032 
2162 014034 000746 
2164 014036 043777 014046 
2165 014044 000207 
2166 

197 
2168 014046 000000 
2169 014050 000000 
2170 014052 000000 
2172 014054 
2173 014054 
2174 014114 004737 014434 
2175 014120 
2176 
2177 
2178 
2179 014122 122 105 
2160 014174 122 105 
2161 014252 122 105 
2182 
2163 014341 045 101 
2164 
2185 


2186 


002476 
002474 


H4 
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BIC MASK , GREGADD s CLEAR ALL R/W BITS 
MOV GADD , BAD 3s READ THE RESULT 
BIC MASCOM, BAD s KEEP ONLY R/W BITS 
CMP BAD , GOOD s ALL R/W BITS CLEAR? 
CALL INSERT s ALLOW FORCED ERROR PRINTOUT 
BEQ 20% s IF OK, BR 
ERROR s ELSE REPORT ERROR 
20%: ENDSEG 
3 
3; CHECK THAT EACH R/W BIT CAN BE SET 
INC ERRNBR 3 NEXT 
MOV @RERRS , ERRMSG s NEXT ERROR MESSAGE 
MOV #1 .,G000 s FIRST BIT TO TEST 
308: BIT GOOD , MASK 3 R/W BIT? 
BNE 50% s IF YES, TEST IT 
40%: ASL s ELSE FIND NEXT R/W BIT 
6cs 70% s IF ALL DONE, RETURN 
BR BOF s ELSE CHECK IF NEXT IS R/W 
50%: 
BIC MASK , GREGADO s CLEAR ALL R/W BITS 
BIS GOOD, s SET ONE BIT 
MOV SREGADO , BAD s READ IT BACK 
BIC MASCOM,BAD 3 KEEP ONLY R/W BITS 
Cp BAD , GOOD s ALL OTHER BITS CLEAR? 
INSERT s ALLOW FORCED ERROR PRINTOUT 
BEQ 60% s IF OK, BRANCH 
ERROR s ELSE REPORT ERROR 
60%: ENDSEG 
SR aus 3; TEST NEXT BIT 
708: BIC MASK , SREGADD 3 LEAVE THE R/W BITS CLEAR 
RETURN 
MASK:: .WORD 0 : BIT MASK OF READ/WRITE BITS 
MASCOM: .WORD 0 3: COMPLEMENT OF MASK 
REGADO::.WORD 0 3s ADDRESS OF REGISTER TO BE TESTED 
BGNMSG REGERR 
PRINTB @REGMSG,REGADD.GOOD.BAD.MASK 
JSR PC, CHKMAX 3 CHECK FOR TOO MANY ERRORS 
ENDMSG 
-NLIST BEX 
RERR1: .ASCIZ SREGISTER READ/WRITE BITS COULD NOT BE SETs 
RERR2: .ASCIZ SREGISTER READ/WRITE BITS COULD NOT SE CLEAREDs 
RERRS: .ASCIZ SREGISTER READ/WRITE BITS COULD NOT BE INDIVIDUALLY SETs 
REGMSG: .ASCIZ .sAADDRESS: #068A, GOOD: S068A, BAD: S068A, R/W BITS: SO6HN. 


-LIST BEX 
-EVEN 





14 apr A in? Be ou | 


SEQ 0047 
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SUBROUTINE CHKMAX - ERROR COUNT CHECKING ROUTINE. 


2188 : 
3183 3 
| aed 
2191 ; FUNCTIONAL DESCRIPTION: 
j 2192 3 
| 2193 ; SUBROUTINE TO UPDATE UNIT ERROR COUNT. IF THE PROGRAM IS LOOPING 
| 3394 : ON AN INE DOES NOTHING. OTHERWISE, THE ERROR 
| 2195 ; COUNT T FoR THE UNIT IS INCREMENTED. IF THE ERROR COUNT EXCEEDS S 
2196 : AND THE USER FLAG EVL HAS BEEN SELECTED AND THE FLAG IDU IS NOT 
| 3197 : SELECTED, THE UNIT IS DROPPED FROM THE TEST CYCLE. 
2198 3 
2199 ; INPUTS 
2200 3 
2201 3 NONE . 
2202 3 
2208 ; IMPLICIT INPUTS: 
. 
2205 : LS$LUN CONTAINS THE NUMBER OF THE UNIT CURRENTLY BEING TESTED. 
2206 : ECNT IS THE ADORESS OF THE ERROR COUNT FOR UNIT 
3 
2208 ; OUTPUTS: 
2209 : 
2210 ; NONE . 
2211 3 
2212 ; IMPLICIT OUTPUTS: 
3 
2214 ; THE ERROR COUNT FOR THE LOGICAL UNIT BEING TESTED IS 
2215 ; INCREMENTED IF THE PROGRAM IS NOT LOOPING. 
3 
2217 3 SUBORDINATE ROUTINES USED: 
2218 3 
2219 ; NONE . 
2220 F 
2221 ; FUNCTIONAL SIDE EFFECTS: 
2222 3 
2223 ; IF THE ERROR COUNT EXCEEDS 5 AND THE USER EVL FLAG IS SELECTED. 
2224 ; AND THE ‘LOOP ON TEST’ AND ‘INHIBIT DROPPING OF UNITS’ FLAGS ARE 
2225 ; NOT SELECTED, THE UNIT WILL BE DROPPED FROM TESTING. 
3 
2227 ; CALLING SEQUENCE: 
2228 ; 
2229 : JSR PC, CHKMAX 
2230 3 
2231 t-- 
2232 
2233 014434 CHKMAX: : INLOOP : LOOPING ON ERROR? 
2234 014436 BCOMPLETE 10% : IF YES, EXIT 
2236 014440 013700 002074 MOV LSLUN,RO : GET CURRENT UNIT 
2237 014444 006300 ASL RO : CONVERT TO ERROR COUNT OFFSET 
2238 014446 005260 002514 INC ECNT(RO) : UPDATE THE ERROR COUNT 
2239 014452 026027 002514 000005 CMP ECNT(RO), 05 s TOO MANY ERRORS? 
2240 014460 003425 BLE 108 ; IF NOT, JUMP 
2242 014462 RFLAGS RO 1 GET OPERATOR FLAGS 
2243 014464 032700 000040 BIT @IDU,RO ; IS DROPPING INHIBITED? 
2244 014470 001021 BNE 10% ; IF YES, EXIT 








J4 


GLOBAL AREAS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 26-1 
| GLOBAL SUBROUTINES SECTION 


| 2245 014472 032700 000004 BIT @EVL RO : EVALUATE FLAG SELECTED ? 
2246 014476 001416 BEQ 10$ ; IF NOT, EXIT 
2248 014500 PRINTF @NERRS,L$LUN  ; ‘TOO MANY ERRORS’ 
2249 014524 DO0DU —sL$LUN ; DROP THE UNIT 
2251 014532 DOCLN : END THE SUBPASS 
2255 .NLIST BEX 
2256 014536 045 116 045 NERRS: .ASCIZ /sNSAMORE THAN S ERRORS ON UNITSD2/ 
2257 “LIST BEX 


-EVEN 


| 
2252 
2253 014534 000207 10: RTS PC 
2254 

| 
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2263 


2309 014600 
2310 014604 


12 014606 
2313 014612 
2314 
2315 014614 
2316 
2317 014620 


2316 014622 
2319 014624 


K4 
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013700 
000405 
013700 
000402 


013700 


005300 
001376 
000207 


014626 


014630 


014632 


SUBROUTINES WT25M, WTSOO AND WT25 - DELAY ROUTINES. 


*¢ 
FUNCTIONAL DESCRIPTION: 


SUBROUTINE TO WAIT FOR 25 MILLISECONDS, 500 MICROSECONDS OR 25 
MICROSECONDS. 


NOTE. BECAUSE OF THE SMALL NUMBER OF PROGRAM WAIT LOOPS USED FOR 
THE 25 MICROSECOND COUNTER, THE ACCURACY OF THE WT25 ROUTINE 
IS LOW. THE DELAY MAY LAST UP TO SO MICROSECONDS ON SOME 
SLOW PROCESSORS. 
INPUTS: 
NONE . 
IMPLICIT INPUTS: 


THE VARIABLES CNT25M, CNTSOO, AND CNT2S MUST HAVE BEEN SET UP BY 
ROUTINE SETCLK. 


OUTPUTS: 
NONE . 
IMPLICIT OUTPUTS: 
NONE . 
SUBORDINATE ROUTINES USED: 
NONE . 
FUNCTIONAL SIDE EFFECTS: 
NONE . 
CALLING SEQUENCE 
JSR PC, .WT25M 3 WAIT FOR 25 MILLISECONDS 
OR JSR PC ,WTSOO ; WAIT FOR SOO MICROSECONDS 
OR JSR PC ,WT25 3 WAIT FOR 25 MICROSECONDS 
WT25M:: MOV CNT25M,RO s GET 25 MILLISECOND WAIT COUNT 
BR WAIT PF 
WTSO0O:: MOV CNTSOO RO ; GET S00 MICROSECOND WAIT COUNT 
BR WAIT $ 
WT25:: MOV CNT25,RO 3; GET 25 MICROSECOND WAIT COUNT 
WAIT: O€EC s ALL DONE? 
BNE WAIT s IF NOT, WAIT SOME MORE 
RTS s ELSE RETURN 
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2320 

2321 014626 000000 CNT25M::.WORD 0 + COUNTER FOR 25 MILLISEC A 
2322 014630 000000 CNTSOO::.WORD 0 + COUNTER FOR 500 HICROSECOND DELAY 
232 014632 000000 CNT25:: .WORD 0 + COUNTER FOR 25 MICROSECOND DELAY 
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SEQ 005 
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2367 014656 045 116 000 LF: -ASCIZ /SN/ 
368 - EVEN 


2326 ; SUBROUTINE CRLF - ROUTINE TO PRINT CARRIAGE RETURN, LINE FEED. | 
2327 
2328 zee 
| 2329 3: FUNCTIONAL DESCRIPTION: 
2330 : 
| 2331 : PRINTS A CARRIAGE RETURN AND LINE FEED. 
2332 3 
2333 :; INPUTS: 
2334 F 
2335 ; NONE . 
2336 3 
2337 3 IMPLICIT INPUTS: 
2338 3 
2339 ; NONE . 
2340 3 
2341 : OUTPUTS: 
2342 3 
eoas ; A CARRIAGE RETURN AND LINE FEED ARE PRINTED. 
3 
2345 3; IMPLICIT OUTPUTS: 
2346 3 
2347 3 NONE . 
2348 3 
io 3 SUBORDINATE ROUTINES USED: 
3 
oes 3 SUPERVISOR PRINTF MACRO. 
3 
2353 : FUNCTIONAL SIDE EFFECTS: 
2354 : 
2355 F NONE . 
2356 3 
2357 ; CALLING SEQUENCE: 
2358 5 
2359 $ JSR PC, CRLF 
2360 3 
2361 3-- 
2362 
2363 014634 CALF: : 
2364 014634 PRINTF OLF 
2365 0144654 000207 RTS PC 
2366 
| 2 
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4666 
meee 014725 
oH 014710 


2420 014712 


Be eee eae | 
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; SUBROUTINE WRDY - SUBROUTINE TO WAIT FOR OPERATOR READY 


FUNCTIONAL DESCRIPTION: 
THIS PRINTS A MESSAGE FOR THE OPERATOR TO TYPE ‘CARRIAGE RETURN’ 
TO CONTINUE. THE ROUTINE IS NORMALLY USED TO ALLOW A HESSAGE TO 
IF MANUAL INTERVENTION IS NOT ALLOWED, THE ROUTINE DOES NOTHING. 
INPUTS: 
NONE . 
IMPLICIT INPUTS: 
NONE . 
OUTPUTS: 
‘TYPE ‘CARRIAGE RETURN! TO CONTINUE OR ‘CONRTOL C’ TO ABORT. 
IMPLICIT OUTPUTS: 
NONE . 
SUBORDINATE ROUTINES USED: 
SUPERVISOR GMANID MACRO. 
FUNCTIONAL SIDE EFFECTS: 
NONE . 
CALLING SEQUENCE: 
USR PC, WRDY 


oe @ © Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Gs Gs Ge Ge Ge Ge GF Ge Ge Ge GS Gs Gs Gs Ge Ge Gs Gs Gs GF Oe Ge Ge oe 
* 


MANUAL s IS MANUAL INTERVENTION ALLOWED ? 
BNCOMPLETE 10% s IF NOT, EXIT 

one a Cera NSA, .377,0,1, YES ‘TYPE RETURN TO CONTINUE’ 

: 


WFLG: -WORD 0 s FLAG FOR WARNING MESSAGE INPUT 


NLIST BEX 
WRDY1: -ASCIZ ZTYPE “CARRIAGE RETURN” TO CONTINUE OR “CONTROL C” TO ABORT./ 
"EVEN 
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me a eae 
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3 SUBROUTINE SELECT - TEST SELECT ROUTINE 


1 FUNCTIONAL DESCRIPTION: 


THIS IS van & BY EACH TEST TO DECIDE WHETHER THE TEST SHOULD 
BE RUN BASED ON THE DEVICE TYPE AND THE TEST MODE SELECTED IN 
THE STARTUP is ih ae A TEST SELECT MASK SUPPLIED BY THE TEST 
IS COMPARED WITH A CONTROL MASK SET WP BY THE INITIALISATION 
ROUTINE TO DECIDE WHETHER wet TEST IS RU. 


IF THE SOFTWARE FAULT INSERTION FLAG SFI IS SET, ALL NON-SPECIFIC 
TESTS ARE SELECTED. 


INPUTS: 


THE LOCATION FOLLOWING TME SUBROUTINE CALL CONTAINS THE TEST 
SELECT MASK IN THE FOLLOWING FORMAT : 


BIT O IS SET IF DIGITA INPUT MODULES ARE TO BE TESTED 
BIT 1 OUTPUT MODULES 


IS SET IF OIGITA ARE TO BE TESTED 
BIT 2 IS SET IF AWALOGUE INPUT To TESTED 
BIT 3 IS SET IF AWALOGUE OUTPUT MODULES ARE TO BE TESTED 

4 IS SET IF FIVE CWOOEL COUNTER ARE TO BE TESTED 
BITS 5S. 6 AMD 7 ARE USED 
6 IS SET TO INDICATE A BASIC ee LOGIC TEST 


TESTS 
BIT 11 IS SET A my ae INPUT/OUTPUT TESTS USED BY 


MANUF AC TURING TELD SERVICE 
BIT 12 IS SET FOR SPECIFICALLY SELECTAKLE TESTS 
BITS 135. 14 AW 15 ARE UNUSED 


THE SECOND yg tt ae FOLLOWING THE SUBROUTINE CALL CONTAINS THE 
ADORESS OF A TEST HEADER MESSAGE TO BE PRINTED IF THE TEST IS 
SELECTED AND THE USER ‘PNT’ FLAG IS SELECTED. 


IMPLICIT INPUTS: 


CONMSK - TEST CONTROL MASK SET UP BY INIT CODE AT THE BEGINING 
OF EACH SUBPASS. THE FORMAT IS AS FOLLOWS : 


BIT O IS SET IF UT IS DIGIT JaPuT 
BIT 1 IS SET IF wT IS OIGITA 

BIT 2 IS SET IF WT IS ANA GAE INPUT 

BIT 3 IS SET IF UT IS ANALOGUE OUTPL 
BIT 4 IS SET IF WT IS FIVE CHANNEL COUNTER 
BITS S, 6 AND 7 ARE UNUSED 

BIT 6 + ALWAYS SET TO SELECT BASIC IMVERNAL 


LOGIC TESTS 

BIT 9 SET TO SELECT FIELD INPUT/OUTPUT TESTS 
BIT 10 IS SET IF LOOPBACK TESTING IS SELECTED 
AND ALLOWED FOR CURRENT 


VuT 
BIT 11 IS SET IF MANUFACTURING HAVE SELECTED LOOPBACK 


AND 1/0 TESTS 
BIT 12 IS SET IF A SPECIFICALLY SELECTABLE TEST 
TS CHOSEN 


SEQ 0054 
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2481 : BITS 13, 14 AND 15 ARE UNUSED 
2482 : j 
2483 , SF1 - IF THIS IS NON ZERO, ALL TESTS ARE SELECTED. | 
2485 : 
Pryta ; OUTPUTS: | 
2487 3 
Pry.) : IF THE TEST MATCHES THE DEVICE TYPE AND TEST MODE CHOSEN VIA THE 
2an9 , STARTUP QUESTIONS, THE ROUTINE EXITS WITH THE CARRY BIT CLEAR. 
2490 : IW THIS CASE, IF THE ‘PNT’ FLAG IS SELECTED, THE TEST HEADER Is 
| 3aor , AND THE FLAGS TSTFLG AND TSUFLG ARE SET TO SHOW THAT 
2432 : TEST HAS BEEN SELECTED. 
8 
| Dae , IF THE TEST IS NOT SELECTED. THE CARRY BIT IS SET AND, IF THE 
| aos : 'PNT’ SELECTED, A MESSAGE ‘TES! DISABLED BY Stat 
| 2a36 3 QUESTIONS’ IS PRINTED. 
3 
|; 2096 ’ IF THE TEST IS NOT SPECIFICALLY SELECTABLE (BIT 11 IS CLEAR IN 
| 2499 : THE TEST SELECT MASK), BIT 11 IS CLEARED IN Ti! CONTROL MASK TO 
| 2200 3 SUBSEQUENT SPECIFICALLY SELECTABLE TESTS FROM BEING RUN. 
3 
es0e : RO, M1 AND R2 ARE CORRUPTED. 
| 3 
| 2504 : IMPLICIT OUTPUTS: 
2505 ; 
2506 , NONE . 
2507 3 
| 2508 3 SUBORDINATE ROUTINES USED: 
2509 3 
| 3510 ; NONE. 
2511 3 
| 2512 s FUNCTIONAL SIDE EFFECTS: 
2513 F 
2514 3 NONE . 
2515 3 
sie s CALLING SEQUENCE: 
$ 
2318 ’ FIXED PARAMETERS FOLLOW THE SUBROUTINE CALL : 
3520 : EG. CAL SELECT 
2521 : 777 s TEST SELECT MASK (BASIC TEST 
2522 ’ : ON ALL DEVICE TYPES 
2523 ; TNAME 3 ADORESS OF TEST HEADER 
4 i ecs TSTEND s BRANCH IF TEST NOT SELECTED 
2526 ae 
2527 
2528 015006 SELECT: : 
2529 015006 017601 000000 MOV &SP),R1 ; SAVE TEST SELECT MASK 
2530 015012 062716 000002 ADD @2.(SP) 3 JUMP OVER THE ARGUEMENT 
2531 015016 017602 000000 BOW @SP),R2 3 SAVE TEST HEADER ADDRESS 
2532 015022 062716 000002 ADO @2,(SP) 3 JUMP OVER THE ARGUEMENT 
| 2534 015026 RFLAGS RO 3 READ OPERATOR FLAGS INTO RO 
2536 015030 032701 010000 BIT #10000 ,R1 s SPECIFICALLY SELECTABLE TEST ? 
2537 015034 001003 BNE 10% 1 IF YES, BRANCH 
| 
| 


a rm me any 


DS 
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2538 015036 042737 010000 002702 BIC #10000 , CONMSK 
2539 015044 005737 002500 108: TST SFI 
2540 015050 001007 BNE 20% 
2541 015052 130137 002702 BITB R1, CONMSK 
2542 015056 001426 BEQ 308 
2543 015060 105001 CLRB Ri 
15062 030137 002702 BIT R1, CONMSK 
2545 015066 001422 BEQ 30% 
23547 s TEST IS SELECTED 
easy 015076 012737 000001 002636 MOV #1, TSUFLG 
15104 032700 001000 BIT @PNT RO 
2553 015110 001425 BEQ 50% 
2534 015112 PRINTF R2 
2555 0151350 000241 cLC 
= 015132 000414 BR 50% 
2558 s TEST IS NOT SELECTED 
2560 015134 032700 001000 30%: BIT @PNT RO 
2561 015140 001410 BEQ 40% 
2562 015142 PRINTF @TNA 
2563 015162 000261 40%: SEC 
2565 015164 000207 50$: RETURN 
2566 


am a es ee ee ——— 


ELSE PREVENT SUCH TESTS 
SOFTWARE FAULT INSERTION ? 
IF YES, SELECT THE TEST 

IS DEVICE THE CORRECT TYPE ? 
IF NOT ANCH 


» OR 
IF YES, DISCARD LOW BYTE 
AND CHECK TEST TYPE 

IF WRONG, BRANCH 


FLAG THAT TEST IS SELECTED 


PRINT TEST HEADER ? 
IF NOT, EXIT r Cc IS CLEAR) 
ELSE PRINT THE HEADER 


CLEAR THE CARRY 
AND EXIT 


PRINT TEST HEADER ? 

IF NOT, EXIT 

ELSE PRINT ‘NOT APPLICABLE’ 
SET THE CARRY BIT 


COMMON RETURN 


2567 BEX 
ioe 015166 045 101 040 TNA: -ASCIZ fame TEST DISABLED BY STARTUP QUESTIONS#N/ 


2570 


| 

| 

| 2548 

2549 015070 012737 000001 002634 20%: MOV #1, TSTFLG 
| 
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FUNCTIONAL SIDE EFFECTS: 
IF ‘SFI’ IS NONE ZERO, THE ROUTINE RETURN ADORESS IS INCREMENTED 
BY ONE WORD. 


CALLING SEQUENCE: 


A ONE WORD BRANCH a aga MUST FOLLOW THE SUBROUTINE CALL 
BEFORE THE ERROR PRINT CAL 


EG. CMP BAD .GOOD s REGISTER CORRECT ? 


3s : SUBROUTINE INSERT - SUBROUTINE TO FORCE ERROR PRINTOUTS 
2574 gee 
2575 : FUNCTIONAL DESCRIPTION: 
: 2576 F 
| 2577 : THIS SUBROUTINE CAN BE USED TO FORCE PRINTOUT OF ERROR MESSAGES 
2578 : FOR QUALITY CHECKING. IF THE FLAG ‘SFI’ IS NONE ZERO, THE BRANCH 
2579 : INSTRUCTION FOLLOWING THE SUBROUTINE CALL IS SKIPPED OVER, 
2580 : CAUSING THE ERROR MESSAGE TO BE PRINTED. IF ‘SFI’ IS SET TO 1, 
2581 : THE ADORESS OF THE SUBROUTINE CALL IS COMPARED WITH THAT OF THE 
2582 3 LAST CALL AND, IF IT HAS NOT CHANGED, THE MESSAGE IS NOT 
2563 3 PRINTED. 
2584 3 
2586 ; . 
: 
2587 : SFI - IF ZERO, THE ROUTINE THING 
2588 : IF ONE, ERROR MESSAGES ARE PRINTED 
2589 3 IF ANY OTHER VALUE, ERROR MESSAGES ARE ALWAYS PRINTED. 
2590 : 
i404 3: IMPLICIT INPUTS: 
; 
a H SEE CALLING SEQUENCE. 
: 
tone 3s OUTPUTS: 
F 
2597 3 LASTFA - IF THE ERROR MESSAGE IS TO BE PRINTED ONCE ONLY, LASTFA 
oe 3 IS LOADED WITH THIS SUBROUTINE RETURN ADORESS. 
; 
3s IMPLICIT OUTPUTS: 
: 
3 NONE . 
; SUBORDINATE ROUTINES USED: 
: 
F NONE . 
F 
’ 
$ 
: 
’ 
$ 
3 
$ 
: 
: 
; 
: 
3 CALL INSERT 3s SKIP BRANCH IF SFI FLAG SET 
$ BEQ 10% s BRANCH IF REGISTER yo 
2621 3 ERROR : ELSE PRINT OUT ERROR MESSAGE 
ze3s a 
2625 01 INSERT: : 
2626 01 MFPS -(SP) s SAVE CONDITION CODES 


5240 106746 
2627 015242 023727 002500 000001 CMP SFI,@1 s INSERT FAULTS ? 
2626 015250 103413 20% 


@ 
o 


IF NOT, BRANCH 





I Eo OEOEOEOEOEeEeEeEEeEeEeEee—_e_e_ee_eeeeeeeeeeeeeee eee a. arya: 


FS 
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2633 015272 062766 000002 000002 10%: ADO @2,2¢SP) 
208: MTPS (SP )+ 


2629 015252 001007 BNE 108 1 IF ALWAYS, BRANCH 
15254 026637 000002 015304 CMe 2(SP),LASTFA ; IS THIS FAULT ALREADY PRINTED? 
2631 015262 001406 BEQ 208 s IF YES, EXIT 
2632 015264 016637 000002 015304 MOV 2(SP),LASTFA + ELSE, SAVE FAULT ADORESS 
s SKIP BRANCH TO FORCE PRINTOUT 
i 
t 


RESTORE CONDITION CODES 
AND RETURN 


2636 
poe 3 015304 000000 LASTFA: .WORD 0 s ADDRESS OF ROUTINE CALL 
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NXMFLG MAY BE SET. 


2640 ; SUBROUTINE CONFIG - ROUTINE TO FIND THE DEVICE CONFIGURATION AUTOMATICALLY. 
2641 
3¢¢ 
seas ; FUNCTIONAL DESCRIPTION: 
2644 Fy 
2645 : THIS ROUTINE SEARCHES THE IDV/IAV-11 ADORESS RANGE (171000-171770) FOR A 
2646 ; RESPONDING ADORESS. FOR THE FIRST ADORESS ON A 4 WORD BOUNDARY (171Xx0) 
| 3647 ; WHICH DOES NOT CAUSE AN NXM TRAP, AN ENTRY IS MADE IN THE HARDWARE 
| = 2648 ; P TABLE FOR UNIT LSLUN. FOR ADORESSES OVER 171400, A VECTOR IS 
2649 ; ASSUMED BASED ON THE LOW 8 BITS OF THE DEVICE ADORESS. 
2650 3 
| 3651 ; EACH CALL TO THE ROUTINE WILL CAUSE ONE MORE UNIT TO BE SEARCHED FOR. 
| 3652 ; IF THE UNIT FOUND IS THE LAST IN THE IDV/IAV-11 RANGE LSUNITS IS SET TO 
| 653 ; THE TOTAL NUMBER OF UNITS. IF NO UNIT IS FOUND, THE PROGRAM EXITS 
| 2634 ; WITH THE CARRY BIT SET AND LSUNIT SET TO LSLUN. 
26 ry 
| 3656 ; MODULES WITH MODE REGISTER CONTENTS NOT CORRESPONDING TO AN IDV/IAVi1 
| 2657 ; ARE SET UP, BUT CAUSE AN ‘UNIDENTIFIED MODULE’ MESSAGE TO BE OUTPUT. 
3 
| 2659 ; INPUTS: 
| 2660 3 
| 2661 : LSLUN - NUMBER FOR THE NEXT UNIT FOUND. 
2662 : 
| 2663 ; IMPLICIT INPUTS: 
2664 ; 
| =. 66S ; STADD MUST BE SET TO 171000 PRIOR TO THE FIRST CALL TO INITIALISE 
| 2666 : THE SEARCH AREA. 
H 
aces : ADORESSES DEFINED BY "IXSTA” TO “IXEND” OF THE I/0 PAGE ARE READ. 
3 
| 2670 ; THE WORD L$LUNe2 AFTER LABEL GPADD MUST CONTAIN THE PARAMETER 
2671 : TABLE ADORESS FOR THE UNIT. 
3 
2673 ; OUTPUTS: 
a 
2675 ; THE HARDWARE P TABLE AND LSUNIT ARE SET UP TO INCLUDE UP TO 16 
2676 ; UNITS FOUND IN THE ABOVE ADORESS R 
3 
2678 , A MESSAGE ‘UNIDENTIFIED MODULE FOUND AT ADDRESS nnnnnn' MAY BE 
2679 ; PRINTED. 
2680 3 
2681 ; IMPLICIT OUTPUTS: 
2682 : 
2683 : IF THE UNIT FOUND IS THE LAST IN THE IDV/IAV-11 RANGE, LSUNIT IS SET UP 
2684 ; TO CONTAIN THE TOTAL NUMBER OF UNITS FOUND (LSLUN+1). 
2685 3 
2686 ; IF NO MORE UNITS ARE FOUND, THE CARRY BIT IS SET AND LSLUN IS 
2687 ; PLACED IN LSUNIT. 
2688 3 
2509 3 SUBORDINATE ROUTINES USED: 
3 
2691 ' NXM - NON EXISTANT MEMORY TRAP ROUTINE. 
2ste : WROY - ROUTINE TO WAIT FOR OPERATOR TO TYPE ‘RETURN’. 
i 
2694 s FUNCTIONAL SIDE EFFECTS: 
2695 F 
3 
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2697 3 
2698 ; CALLING SEQUENCE: 

} 2699 i 

3700 ; €G6. JSR —«- PC, CONFIG 

| S703 : cs INIUUT ; IF NO MORE UNITS, START AGAIN 
2702 3 
2703 t-- 
2708 
2705 015306 CONFIG: : 

015306 010146 MOVs R11, -( SP) ; SAVE R1 TO R4 

5707 015310 010246 MOV _—s-R2, -( SP) ; 
2708 015312 010346 MOV —s_R&3,-( SP) ; 
2709 015314 010446 MOV —s- RA. -( SP) : 
2711 015316 013702 015572 mov STADD,.R2 : START SEARCH FROM THIS ADORESS 
5712 015322 012737 000001 015574 MOV —s- @1, NOUNIT ; ASSUME NO UNIT WILL BE FOUND 
2713 015330 SETVEC 04. @NXM, 0340 SET UP NXM TRAP 
2715 015356 005037 002470 10$: CLR  —sNXMFLG CLEAR THE NXM FLAG 
2716 015362 005712 TST (R2) ; CHECK THE ADORESS 
2717 015364 005737 002470 TST _- NXMFLG ; ANYTHING THERE ? 
2718 015370 001006 BNE 208 ; IF NOT, TRY NEXT DEVICE ADORESS 
2719 015372 005737 015574 TST NOUNIT ; IF YES, IS IT THE 2ND ONE THIS CALL ? 
2720 015376 001422 BEQ 308 ; IF YES, SET UP THE P TABLE 
2721 015400 005037 015574 CLR - NOUNIT ; IF IT’S THE FIRST, FLAG UNIT FOUND 
2722 015404 010201 MOV —s-«R2, RA ; AND SAVE THE ADDRESS 
2724 015406 062702 000010 208: ADD  10,R2 ; GET THE NEXT 
2725 015412 020227 171770 CHP , @IXEND ; OUT OF THE IXV11 RANGE ? 
2726 015416 003757 BLE 108 : IF NOT, GO BACK 
2727 015420 012702 171000 MOV @IXSTA,R2 ; ELSE START AGAIN NEXT CALL 
2728 015424 013737 002074 002012 MOV —s_L$LUN, LSUNIT ; SAVE THE UNIT 
2729 015432 005737 015574 TST T ; WERE ANY UNITS FOUND ? 
2730 015436 001041 BNE 708 ; IF NOT, EXIT 
2731 015440 37 002012 INC _—LSUNIT ; ELSE WE HAVE THE LAST UNIT 
2733 015444 021127 177400 30$: CMP (R1),@177400 ; IS MODULE ID OK ? 
2734 015450 103413 BLO —_«408 ; IF YES, 
2735 015452 PRINTF @C01,R1 ; ELSE PRINT ‘UNIDENTIFIED’ 
2736 015474 004737 014662 JSR ss PC, WY ; WAIT FOR OPERATOR TO TYPE ‘RETURN’ 
2738 015500 013700 002074 40s MOV _—_LSLUN, RO ; FORM OFFSET FOR LUN 
2739 015504 ASL RO , 
2740 015506 016003 002554 MOV _—«sGPADD( RO), R3 ; GET P TABLE ADORESS IN R3 
2741 015512 010123 MOV —s_ R11, (R3)+ ; SAVE THE DEVICE ADORESS 
2743 015514 042701 177000 BIC @177000,R1 ; CALCULATE THE VECTOR ADDRESS 
2744 015520 032701 BIT @400,R1 ; ADORESS OVER 171400 ? 
2745 015524 001001 ) BNE 50$ ; IF YES, 
2746 015526 005001 CLR sR ; ELSE ZERO THE VECTOR 
2747 015530 010123 50s: MOV R1,(R3)+ ; AND SAVE IT 
2748 015532 001402 BEQ 608 ; IF 0, BRANCH 
2749 015534 012701 000200 MOV €200,R1 ; ELSE SET UP DEFAULT PRIORITY 
2750 015540 010123 60: MOV R1,(R3)> ; SAVE THE PRIORITY 
2752 015542 010237 015572 70$: MOV R2,STADD ; SAVE THE NEXT SEARCH ADDRESS 
2753 015546 CLRVEC 04 ; RESTORE THE NXM TRAP CATCHER 
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27358 
2759 015570 
2760 
2761 015572 
2762 015574 
2763 
2764 
2765 015576 
2766 
2767 
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STADO:: . 
NOUNIT: . 
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I5 


= ha Wednesdey 03-Oct-84 14:03 Page 32-2 ‘ 


(SP)+,R4 3 RESTORE R4 TO Ri 

CSP)+,R F 

(SP)+,R2 3 

(SP)+,R1 ; 

NOUNIT s IF NO UNIT, SET THE CARRY BIT 
PC 3: AND RETURN 

IXSTA s START ADDRESS OF SEARCH AREA 
0 s SET TO SHOW NO UNIT FOUND 


BEX 
tet MODULE FOUND AT ADDRESS s06sA./ 
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2615 
2616 015710 
2617 015712 
2618 015732 
2619 


1 
2620 015736 
2621 015756 
2622 015776 
2623 016016 


2624 016036 
2625 016040 


005737 002012 
001012 


000137 016452 


005001 
010100 
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SUBROUTINE CONPRI - SUBROUTINE TO PRINT A CONFIGURATION TABLE. 


THIS ROUTINE PRINTS A CONFIGURATION TABLE OF ALL UNITS LISTED IN 
THE HARDWARE PARAMETER TABLE. LISTED ARE THE MODE REGISTER ADDRESS, 
VECTOR AND DEVICE TYPE. 

INPUTS: 
NONE . 

IMPLICIT INPUTS: 
THE HARDWARE P TABLE. 


i. NO ~ A thy ARE CONFIGURED, THE GLOBAL MESSAGE LABELLED “NODEV” 


OUTPUTS: 
THE CONFIGURATION TABLE IS PRINTED. 
IMPLICIT OUTPUTS: 


IF NO UNITS ARE CONFIGURED (LSUNIT = 0), A MESSAGE ‘NO DEVICES 
FOUND’ IS PRINTED. 


SUBORDINATE ROUTINES USED: 


NXM - NON EXISTANT MEMORY TRAP ROUTINE. 
CRLF - LINE FEED PRINT ROUTINE. 


FUNCTIONAL SIDE EFFECTS: 

REGISTERS Ri TO RS ARE CORRUPTED. 
CALLING SEQUENCE: 

JSR PC ,CONPRI 


CONPRI: 
SETVEC #4, ONXM, 0340 3 CATCH REFERENCES TO NXM 
TST $UNIT 3s ANY UNITS CONFIGURED ? 
BNE 10% 3s IF YES, BRANCH 
PRINTF @NODEV 3 ELSE PRINT 'NO DEVICES FOUND’ 
CONEX : AND EXIT 
10%: PRINTF 1 3; PRINT CONFIGURATION HEADER 
PRINTF @CP1A ; 
PRINTF @CP1B ‘ 
ecPic ’ 
CLR R1 s START WITH FIRST UNIT 
20%: MOV R1,RO s FORM PARAMETER TABLE OFFSET 


FUNCTIONAL DESCRIPTION: 





KS 
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2826 016042 00€300 
2627 016044 016002 
2628 016050 012205 
2829 016052 
2630 016076 005722 
2631 016100 001415 
2633 016126 000410 





002554 


002470 


177400 
002470 


000037 
017156 
000077 
017167 
000177 
017200 
000277 
017211 


002012 


016040 
014634 


116 


BR 
308: PRINTF @CP4 


GET THE UNIT P TABLE 

SAVE THE UNIT ADDRESS 
PRINT UNIT NO. AND ADDRESS 
IS THERE A VALID VECTOR ? 
IF NOT, BRANCH 

ELSE PRINT THE VECTOR 


PRINT ‘NONE’ 


40$ CLR : GET READY FOR NXM TRAP 
MOVB (R3)+,RS 3 GET MODE REGISTER LOW BYTE 
CR3),R4 3 AND HIGH BYTE 
BIC #177400 ,R4 s DISCARD REGISTER HIGH BYTE 
is - L 3 WAS THERE AN NXM TRAP ? 
é ° 
PRINTF @CP10 3 ELSE PRINT UNKNOWN ID/MODE 
PRINTF @CP10A 3 MODULE TYPE 
110% : AND SEE IF LOOPED 
50%: PRINTF @CPS,R4,R5 s PRINT OUT ID/MODE 
céP @300,R4 s IS MODULE A FIVE CHA. COUNTER ? 
BHI 554 : IF NOT, BRANCH 
MOV @OCNT RS s ELSE SAVE ‘FIVE CHA. COUNTER’ STRING 
ee + Samed s PRINTOUT DEVICE TYPE 
o 
55%: cep R4,037 : IS MODULE DIGITAL INPUT ? 
BHI $ : IF NOT, 
MOV @01I,R3 3 ELSE SAVE ‘DIG. IN’ STRING 
BR 90% : GO TO PRINT MODULE TYPE 
608: CHP R4,077 s IS MOOULE DIGITAL OUTPUT ? 
BHI 706 3 IF NOT, BRANCH 
MOV 00.R3 s ELSE SAVE ‘DIG OUT’ STRING 
BR 90% : GO TO PRINT MODULE TYPE 
708: CHP R4,0177 3 IS MODULE ANALOGUE INPUT ? 
AHI 80% 3 IF NOT, BRANCH 
MOV @AI,R3 s ELSE SAVE ‘AN IN’ STRING 
BR 90% : GO TO PRINT MODULE TYPE 
80%: CMP R4,0277 s IS MODULE ANALOGUE OUTPUT ? 
BHI 1008 s IF NOT, BRANCH 
MOV @A0,.RS s ELSE SAVE ‘AN OUT’ STRING 
908: PRINTF @CP6,R3 3 PRINT OUT DEVICE TYPE 
100¢$: PRINTF @CP7 3 PRINT ‘CANNOT BE TESTED’ 
110%: INC R1 3 PREPARE FOR NEXT UNIT 
cMe R1,LSUNIT 3 ALL UNITS DONE ? 
BGE ONE X 3 IF YES, EXIT 
JEP $ ; ELSE DISPLAY THE NEXT 
CONEX: JSR PC,CRLF ; PRINT A LINE FEED 
CLRVEC 04 3 RESTORE SUPERVISOR NXM TRAP CATCHER 
RTS PC 
.NLIST BEX 
045 CPi: -ASCIZ \sNSS248AIDV/IAV-11 MODULE CONFIGURATION. \ 


2905 
2906 


| GLOBAL ARE MACRO V 

| GLOBAL SUBROUTINES SECTION 
2883 016537 (045 
2884 016611 045 
2885 016707 045 
2886 016741 045 
2887 016752 0045 

| 2888 016761 «= 045 
2889 016773 045 
2890 017010 045 
2891 017016 045 
2892 017066 045 
2893 017077 «045 
2894 017110 045 
2895 017125 045 
2896 017143 9045 
2897 017147 045 
2898 
2899 017156 104 
2900 017167 = 104 
2901 017200 = 101 
2902 017211 = 101 
2903 017222 106 
2004 

| 
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/BNBS248A 

\SN2SAUNIT ADDRESS VECTOR ID/MODE MODULE 
\8S1SSAASSUMEDSS 1 S8ATYPESN 

\s6N8D 3809 

\8S5803\ 


\SS4SANONE \ 
\#S96036A7403\ 
\sA — BE TESTED WITH THIS DIAG #\ 


COMMENT SN\ 


809 
\8S5803\ 
. IN/ 
. OUT/ 
IN / 
- OUT/ 
/FIVE CHA. COUNTER/ 


BEX 
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010346 
010446 
013703 002704 
005703 


SUBROUTINE DACON - DIGITAL TO ANALOGUE CONVERSION ROUTINE. 


FUNCTIONAL DESCRIPTION: 
THIS CONVERTS A 12 BIT DIGITAL PATTERN INTO A 2 WORD ANALOGUE 
OUTPUT VALUE. 


INPUTS: 
MODE : 0 = UNIPOLAR (0 TO 10 VOLTS) BINARY CODED 
1 = BIPOLAR (-10 TO +10 VOLTS) OFFSET BINARY CODED 
22+ 0 - 20 mA BINARY CODED 
3 = 4- 20 mA BINARY CODED 
GAIN : 0 - 7s GAINS 1,2,5,10,20,50,100,200 


Ri : 12 BIT INPUT PATTERN. 
IMPLICIT INPUTS: 

VITAB AND ITAB : DIGITAL/ANALOGUE CONVERSION TABLES. 
OUTPUTS: 


Ril - MILLIVOLTS (MODES 0 AND 1) 
MICROAMPS (MODES 2 AND 3) 

R2 - MICROVOLTS (MODES 0 AND 1) 
S (MODES 2 AND 35) 


IMPLICIT OUTPUTS: 


NONE . 

SUBORDINATE ROUTINES USED: 
NONE . 

FUNCTIONAL SIDE EFFECTS: 
NONE . 

CALLING SEQUENCE: 

EG. MOV #1, MODE s BIPOLAR CONVERSION 
MOV #6 ,GAIN : GAIN = 100 
MOV 07777, R1 3; ALL BITS SET 
JSR D0 

DACON: : 

MOV R3,-CSP) s SAVE RS 
MOV R4,-C(SP) 3: AND R4 
MOV MODE ,R3 3; GET MODE 
TST 3 s MODE O ? 
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2965 017256 


2968 

2969 017266 
2970 017270 
2971 017272 
2972 017276 


2977 017310 
2976 
2979 017312 
2980 
2961 017316 
2962 017322 


3013 017436 
X14 017432 
3015 017436 
3016 


3019 017450 
20 
3021 017454 


MACRO V 


001003 
012700 
000414 


005303 


001003 
012700 
000407 


005303 
001003 
012700 
000402 
012700 


013703 


voS .00 


002712 


003512 


002704 
007640 


Wednesday 


000003 


NS 
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108: 


208: 


50$: 


60%: 
70%: 


90%: 


100$:;: 


BNE 
MOV 


DEC 


8 Ske ASStheas 


10% 
OVUPTAB ,RO 
PSDA 

R3 

20% 
@VBPTAB ,RO 
PSDA 

R3 

30% 
@IOTAB,RO 
PSDA 


@I4TAB,RO 


60 

#1000. ,R2 
R1 
CRO),R1 
#2,RO0 

R3 

50$ 
MODE , #1 
90% 

R4,R1 

90% 

R2 

90% 

#1000. ,R2 
R1 
MODE , 03 
100% 


#4000. ,R1 


(SP)+,R4 


SEQ 0065 


IF NOT, BRANCH 
GET CONVERSION TABLE FOR MODE 0 


MODE 1 ? 
IF NOT, BRANCH 
GET CONVERSION TABLE FOR MODE 1 


MODE 2 ? 
IF NOT, BRANCH 
GET CONVERSION TABLE FOR MODE 2 


USE I4TAB FOR MODE 5 


GET THE GAIN 

HAVE WE GOT THE CORRECT TABLE ? 
IF YES, BRANCH 

ELSE INCREASE THE TABLE OFFSET 
AND TRY AGAIN 


SAVE HIGH BIT VALUE 
SAVE THE BIT PATTERN 
CLEAR THE OUTPUT REGISTERS 


SHIFT OUT UNUSED BITS 
€ BITS 15 - 12 ) 


TEST A BIT 

IF CLEAR, BRANCH 

ELSE ADD IN LOW VALUE 

OVERFLOW OF LOW WORD ? 

IF NOT, BRANCH 

ELSE CARRY FROM LOW WORD 
GH WORD 


? 
IF NOT, DO MORE BITS 


BIPOLAR VOLTAGE CONVERSION ? 
IF NOT, 

ELSE MAKE BIPOLAR 

IF STILL A bth. t » nme 
DECIMAL PART ZERO ? 

IF YES, BRANCH 

ELSE BORROW FROM HIGH PART 


4 - 20 mA MODE ? 


IF NOT, BRANCH 
ELSE ADD IN BASE VALUE 
RESTORE R4 





ee a ee... i+ - 
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3022 017456 012605 MOV (SP)+,R3 
3023 017460 000207 RTS PC 


me sie 


SEQ ? 
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3025 : SUBROUTINE ADCON - ANALOGUE TO DIGITAL CONVERSION ROUTINE. 
3026 
3027 see 
3028 s FUNCTIONAL DESCRIPTION: 
3029 3 
3030 , THIS CONVERTS A 2 WORD ANALOGUE VALUE INTO A 12 BIT DIGITA OUTPUT 
3031 ' PATTERN. THE INPUT IS ROUNDED UP OR DOWN TO THE NEAREST LSP VALLE. 
3032 3 
3033 ; INPUTS: 
3 
3035 , MODE : 0 = UNIPOLAR (0 TG 10 VOLTS) BINARY CODED 
3036 : 1 * BIPOLAR (-10 TO +19 VOLTS) OFFSET BINARY CODED 
| - 3037 ; 2*0 - 20 mA BINARY CODED 
3038 : 3° 4- 20 A BINARY CODED 
4 
j sey 3 GAIN $ 0 > 7 s GAINS 1,.2.5,.10,20,50,100,200 
| 3 
| 302 : Rl - MILLIVOLTS (MOCES 0 AND 1) 
ae i MICRONS (MODES 2 AND 3) 
| 3 
| 3085 : R2 - MICROVOLTS (MODES 0 AND 1) 
| ae 3 NANOAMPS (MODES 2 AND 3) 
3 
| 3088 : IMPLICIT INPUTS: 
6 
3050 : VITAB AND ITAB : DIGITAL/ANALOGUE CONVERSION TABLES. 
3 
| 3052 3 OUTPUTS: 
i 3053 3 
3054 $ Ril +: 12 BIT INPUT PATTERN. 
i 3055 a 
| 3056 s IMPLICIT OUTPUTS: 
3057 8 
3058 : NONE . 
3059 3 
3060 3 SUBORDINATE ROUTINES USED: 
3061 3 
3062 i NONE . 
3063 8 
| 3064 3 FUNCTIONAL SIDE EFFECTS: 
3065 H 
2066 r NONE . 
3067 3 
3068 + CALLING SEQUENCE: 
3069 3 
3070 s €G. Mov #1, MODE s BIPOLAR CONVERSION 
3071 F MOV 06 ,GAIN 3 GAIN - 100 
3072 ‘ MOV @-4,R1 s -4,001 MILLIVOLTS 
3073 , MOV @-1,R2 3 IN RI/R2 
3074 , JSR PC, ADCON 
3075 3 
3076 t-- 
3077 
3078 017462 ADCON: : 
| 79 017462 010346 MOV R3,-(SP) 1 SAVE R3 
017464 010446 MOV R4,-(SP) ' R4 
| 3081 017466 013703 002704 MOV RS + GET 
| 





ee CE ST TT 20 a eee ee - _—_— 


SEQ 0068 
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30862 017472 005705 TST R3 s MODE O ? 

3083 017474 001005 BNE 10% s IF NOT, BRANCH 

3064 017476 012700 002712 MOV @VUPTAB ,RO s GET CONVERSION TABLE FOR MODE 0 

3085 017502 000416 BR PSAD ’ 

3086 

30867 017504 0055035 108: DEC R3 : MODE 1 

3068 017506 001003 BNE 208 s IF NOT, BRANCH 

3089 017510 012700 003512 MOV @VBPTAB RO ; GET CONVERSION TABLE FOR MODE 1 

3090 017514 000411 BR PSAD 

3092 017516 005305 208: DEC R3 s MODE 2 ? 

3093 017520 001005 BNE 30% s IF NOT, BRANCH 

3094 017522 012700 004312 MOV @IOTAB,RO s GET CONVERSION TABLE FOR MODE 2 

3095 017526 BR PSAD 3 

3097 017530 012700 005112 308: MOV @I4TAB,RO s USE I4TAB FOR MODE 35 

3096 017534 162701 007640 SUB #4000. ,R1 s AND SUBTRACT BASE VALUE 

00 017540 013703 002706 PSAD: MOV GAIN,RS s GET THE GAIN 

3101 017544 10% DEC 3 s HAVE WE GOT THE CORRECT TABLE ? 

3102 017346 100405 BMI 20% s IF YES, 

3103 017550 000060 ADD #48. ,RO s ELSE INCREASE THE TABLE OFFSET 

3104 017554 0007735 BR 10% s AND TRY AGAIN 

3106 017556 023727 002704 000001 20%: cor MODE , #1 s BIPOLAR MODE ? 

3107 017564 001011 BME 30s s IF NOT, BRANCH 

3108 017566 061001 ADO (RO) ,R1 s ELSE CONVERT BIPOLAR TO UNIPOLAR 

3109 017570 7 023420 cep R1, #10000. s WAS PREVIOUS VALUE NEGATIVE ? 

3110 017574 001005 BNE 30% s IF NOT, BRANCH 

3111 017576 005702 TST s IS DECIMAL PART ZERO ? 

3112 017690 001403 BEQ 30% s IF VES, 

3113 017602 001750 ADD #1000. ,R2 s ELSE BORROW FROM HIGH PART 

3114 017606 005301 DEC Ri $ 

3116 017610 016003 000026 30s: MOV 22.(RO),RS s GET ROUNDING VALUES FROM LOWEST 

3117 017614 016004 000056 MOV 46.(RO),.R4 s SIGNIFICANT BIT 

3118 017620 006203 ASR R3 s OIVIDE BY 2 

3119 017622 103002 eCcC 40% s IF NO CARRY SKIP NEXT COMMAND 
017624 062704 001000 ADO #1000 ,R4 s ADD CARRY 

3121 017630 40%: ASR R4 s OIDIDE BY 2 

3122 017632 ADO oR2 s ROUND UP THE eee tad 

3123 017634 001750 cr R2,#1000 s LOWER PART IS 0 1000 

3124 017640 BLT ‘ t 

3125 017642 001750 SUB #1000. ,R2 s IF OVERFLOW, CARRY OVER TO 

3126 017646 INC 1 s HIGH PART 

3127 017650 508: ADO R3,R1 s ADO IN HIGH PART OF ROUNDING FACTOR 

ed 017652 012703 000020 MOV ’ 3 INITIALISE WORKING REGISTER 

3130 017656 020110 608: CMP R1,CRO) s COMPARE HIGH VALUE WITH TABLE ENTRY 

3131 017660 002415 BLT $ s IF LESS, DON’T SET BIT 

3132 017662 003003 8GT 08 s IF MORE, SET THE BIT 

3133 017664 020260 000030 CMP R2,24.(RO) s OTHERWISE, MUST CHECK THE LOW VALUE 

eo 017670 002411 BLT $ s IF LESS, DON’T SET THE BIT 

3136 017672 166002 0000350 708: SUB 24.(RO),R2 1 SUBTRACT THE TABLE ENTRIES 

3137 017676 002003 BGE 80% s BRANCH IF NO BORROW NEEDED 

3138 017700 062702 001750 ADO #1000. ,R2 s ELSE ADD TO LOW WORD 


ee  e -- ---—————-— 4 


E6 
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3139 017704 005301 DEC R1 s FROM HIGH WORD 

3140 017706 161001 808: SUB (RO),R1 3 AND LOW WORDS 

3141 017710 052703 000001 BIS #1,R3 s AND SET THE OUTPUT BIT 
3142 017714 062700 000002 90%: ADO #2 ,RO 3 AND NEXT TABLE _— 
3143 017720 0063505 ASL R3 s READY FOR NEXT BIT 

aed 017722 103355 Bcc 608 s IF 12 BITS NOT DONE, GO BACK. 
3146 017724 006203 100$: ASR R3 s GET THE PATTERN AGAIN 
3147 017726 010301 MOV R3,R1 s SET UP OUTPUT REGISTER 
3148 017730 012604 MOV (SP )+,R4 s RESTORE R4 

3149 017732 012603 MOV (SP )+,R3 s AND R3 

3150 017734 000207 RTS PC 3 
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3205 

3206 017754 
3207 017774 
3208 020014 


012700 
012701 
005020 


005301 
001375 


012700 


020310 
006907 


020314 
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SUBROUTINE DECIN - SIGNED DECIMAL INPUT ROUTINE. 


FUNCTIONAL DESCRIPTION: 


THIS SOLICITS A SIGNED DECIMAL NUMBER FROM THE OPERATOR. 
INPUTS: 
PADD - THE ADORESS OF THE PROMPT STRING FOR THE INPUT. 
THE OPERATOR IS Pay at... FOR A NUMBER WHICH CAN BE UP TO a es 
LONG INCLUDING AN OPTIONAL + OR - SIGN AND DECIMAL POINT. 
STRING SHOULD BE IN ‘PRINT’ FORMAT € IE..ASCIZ /SNSAINPUT VALUE/ ). 
IMPLICIT INPUTS: 
NONE . 
OUTPUTS: 
R1 - INTEGER PART OF OPERATOR INPUT 
R2 - DECIMAL PART OF OPERATOR INPUT 
IMPLICIT OUTPUTS: 


ERROR MESSAGES ARE PRINTED IF THE OPERATOR TYPES AN ILLEGAL CHARACTER, 
AN INTEGER PART OVER 32767, OR A DECIMAL PART WITH MORE THAN 3 DIGITS. 


AN EXAMPLE STRING IS APPENDED TO THE INPUT PROMPT. 
SUBORDINATE ROUTINES USED: 

NONE . 
FUNCTIONAL SIDE EFFECTS: 


@MADD , PADD 3; LOAD THE PROMPT MESSAGE ADDRESS 


DECIN 
ONR1 ,RO ; CLEAR NUMBER AND STRING LOCATIONS 

MOV #7,R1 s 2 WORDS FOR INTEGER AND DECIMAL 
10% CLR C(RO)+ s PARTS AND 10 BYTES FOR THE INPUT 

DEC Ri s STRING, 

BNE 10% : 

PRINTF PADO PRINT THE PROMPT 

GMANID cnent, Sam. A,-1,0,10. NO 1 GET THE NUMBER STRING 

MOV @SNUM,R ’ POINT TO THE START 
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012701 


000671 


000642 


013701 
013702 


020227 
103411 


020310 


006314 


100%: 


1108: 


33 S8g3 SnRep 


338 * 
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ONR1 RI 
CRO), @' » 
60% 
CRO), @' - 
608 
(RO),@'. 
50% 

@NR2 ,R1 
2(RO) 

40% 
#'0,2(RO) 
3(RO) 

60% 
#'0,3(RO) 
60% 

CRO) 

110% 

70% 


RO 
20% 


CRO), #60 
80% 
(RO), @71 
90% 


@0ECINS 
DECIN 


(R1), 03276. 
100% 


(R1) 
(R1),R2 
(R1) 
(R1) 
R2,(R1) 
CRO)+ ,R2 


#60, 
R2,(R1) 
100% 





ASSUME INTEGER PART FIRST 
IS 1ST CHARACTER A + ? 
BRANCH 


IF NOT, BRANCH 


START ON DECIMAL PART 
FORCE TO 3 OIGITS 


IE. REPLACE NULLS 
WITH ZEROS 


END OF STRING ? 

IF YES, FINISH UP 

ELSE GET NEXT DIGIT 

SKIP OVER THE SIGN OR POINT 
IS CHARACTER A VALID NUMBER ? 
IF TOO LOW, ASK AGAIN 

IF NOT TOO HIGH, BRANCH 
PRINT ‘ILLEGAL CHARACTER’ 
AND ASK AGAIN 

NUMBER TOO HIGH ? 

IF YES, BRANCH 

ELSE MULTIPLY BY 10 

READY FOR NEXT CHARACTER 


SAVE - CHARACTER 


TO NUMBER 
ANO ADD TO ACCUMULATOR 
IF OVERFLOW, REPORT ERROR 


AND GET NEXT CHARACTER 


PRINT ‘NUMBER TOO BIG’ 
AND GET ANOTHER 


SET UP OUTPUT REGISTERS 


DECIMAL PART TOO BIG ? 
IF NOT, BRANCH 
PRINT ‘ONLY 3 DIGITS ALLOWED’ 





H6 


SE 7 
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—? 020270 000622 BR DECIN 

326 

3268 020272 123727 020314 000055 120%:  CMPB SNUM, 0° - s WAS STRING NEGATIVE ? 

3269 020300 001002 BNE 1308 s IF NOT, BRANCH 

3270 020302 005401 NEG Ri + ELSE NEGATE THE OUTPUT 

aes 020304 005402 NEG R2 $ 

A, 020306 000207 130%: RTS PC + AND RETURN 

3274 

od -NLIST BEX 

3277 020310 000000 NR1: -WORD 0 s STORE FOR INTEGER PART 

3276 020312 000000 NR2: -WORD O s STORE FOR DECIMAL PART 

44 020314 05S 061 062 SNM: .ASCIZ /-12345.678/ s STORE FOR INPUT STRING 


-ASCIZ /(EG. 12345.678)/ s PROMPT FOR INPUT 
/SNSAMUST BE LE 


LESS THAN 32768=8N/ 
-ASCIZ /SNSAONLY 3 DIGITS MAY ——— THE DECIMAL POINTSN/ 
-ASCIZ /SNSAILLEGAL CHARACTERSN 


3285 
3286 -LIST BEX 
3287 -EVEN 


ee ee aoe ee eee lees ase ee 


a . 


I6 
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SEQ 0073 


| 3289 ; SUBROUTINE DECOUT - SIGNED DECIMAL OUTPUT ROUTINE 
3290 
3291 see 
3292 : FUNCTIONAL DESCRIPTION: 
3293 : 
3294 3 ROUTINE TO PRINT A SIGNED DECIMAL NUMBER. 
' 3295 a 
3296 ; INPUTS: 
3297 F 
3298 : Ri - INTEGER PART OF NUMBER TO BE PRINTED 
3299 F R2 - DECIMAL PART OF NUMBER TO BE PRINTED 
3300 3 
3301 3 IMPLICIT INPUTS: 
3302 3 
3303 3 NONE . 
3304 3 
3305 3: OUTPUTS: 
3306 3 
3307 3 HE NUMBER IS PRINTED AS FOLLOWS : -12345.678 
3308 3 } NO SIGN IS PRINTED FOR POSITIVE “NUMBERS ) 
3309 3 IF THE DECIMAL PART (R2) IS ZERO, THE 
core 3 IS PRINTED AS -12345 
1 Fy 
3312 3 IMPLICIT OUTPUTS: 
3313 3 
3314 F NONE . 
3315 3 
roy 3: SUBORDINATE ROUTINES USED: 
3 
3318 3 NONE . 
3319 3 
3320 s FUNCTIONAL SIDE EFFECTS: 
3321 F 
3322 3 NONE . 
3323 : 
a s CALLING SEQUENCE 
3 
3326 3 EG. MOV #-10.,R1 3; PRINT -10.001 
3327 Hf @-1,R2 3 
3328 3 JSR PC ,.DECOUT 
3329 F 
3330 t-- 
3331 
3332 020516 OECOUT 
3333 020516 010146 MOV R1,-C(SP) : SAVE Ri 
3334 01 MOV R2,-CSP) s SAVE Re 
020522 005701 TST R1 s RL >O? 
3337 020524 BLT 10% s IF NOT, BRANCH 
020526 005702 TST R2 3 R2 POSITIVE ? 
3339 020530 12 BGE 20% 3 I S, BRANCH 
3340 020532 005401 10%: | 4 3 ELSE MAKE POSITIVE 
3 
s AND PRINT ‘-' 


PRINT ne F -ww y PART 
DECIMAL P =0? 
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3346 020602 001411 
3347 020604 
3348 020626 012602 
3349 020630 012601 
3350 020632 000207 
3351 
3352 
3353 020634 045 
3354 045 
355 045 
3356 


DECEX: 


101 OSS OECO1: 
104 065 DECO2: 
101 056 DECOS: 


J6 
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DECEX 
@0ECO3,R2 
(SP)+,R2 
(SP)+,R1 
PC 


BEX 
/8R-/ 
/805/ 
/GA .6Z3/ 
BEX 





IF YES BRANCH 

ELSE, “yy DECIMAL PART 
RESTORE R 

AND R1 

AND RETURN 





ae ae 
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3394 020654 015746 
3395 020660 013700 
006316 
005500 

006200 
3399 020672 005516 
3400 020674 061600 


005600 
3402 020700 012637 
3403 020704 010037 
000207 


3404 020710 

3405 

3406 020712 135753 
3407 020714 024674 
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020712 
020714 


020712 
020714 


FHSS SHSSHSHHSH HES HHH SHESHEHEHHHEHEHESHEHEHEHE OHHH EEE HEE HEHEHE HEHEHE ESEE HEHE EOEE EOS 


INPUTS: 
NONE . 


OUTPUTS: 


eo Ge GF oe GF GF as Ge GF Gs Ge aH OF GF GF Ge Ge Ge GF as Gs oF os Se os 


RANDOM: : MOV 
MOV 
ASL 
ADC 
ASR 
ADC 
ADO 
sec 
MOV 
MOV 
RETURN 

RA:: - WORD 

RB:: . WORD 


INE - R 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE GENERATES A RANDOM PATTERN. THE PATTERN IS 
STORED IN LOCATION RB. 


IMPLICIT INPUTS: 


RA AND RB 


RB - CONTAINS THE RANDOM PATTERN 
RA - CONTAINS A SECOND RANDOM PATTERN 


IMPLICIT OUTPUTS: 


SUBORDINATE ROUTINES USED: 


CALLING SEQUENCE: 
CALL RANDOM OR JSR PC,RANDOM 


2ug2sgas 


~n 
ww 
* 
J 
es 
2S 


sPUSH RA TO STACK 

sGET THE LAST RANDOM PATTERN 
sSIFT SP (=*RA) LEFT 

+4 CARRY zs SET ADO TO RO (=RB) 
3 


0 
sLOAD LOCATION RB WITH NEW PAT. 
é 


sSTART PATTERN FOR RB 
sSTORAGE FOR RANDOM PATTERN 


— ee 





L6 


SEQ 007 
GLOBAL AREAS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 39 @ 0076 
| GLOBAL SUBROUTINES SECTION 
3410 POSH SHHSHSHEHS ESSE HEH HSHHEHHEHHEHHHHHHEHEH HEHEHE HE HEHEHE HEE SHEE HHEEEHHEOEEEHOESE HOD 
3411 ; SUBROUTINE - FLASH 
3412 eet ee eee errr 
3413 ; FUNCTIONAL DESCRIPTION: 
3414 ; 
3415 ; THIS SUBROUTINE FLASHES THE SELECTED MODULE 
 -3a16 : LED ON AND OFF WHILE READING THE CONSOLE KEYBOARD INPUT. 
| §al? ; THE EXPECTED INPUTS ARE ‘Y' OR 'N’ AND THEN A CR OTHER INPUTS 
| ae ; CEXEPT THE CNTL C) WILL CAUSE A PROMT TO REPEAT 
| 319 ; WITH THE CORRECT CHARACTE 
34 3 
3421 ; INPUTS: 
3422 3 
3423 : CONSOLE KEYBOARD INPUT. 
3 
3425 ; IMPLICIT INPUTS: 
3426 3 
3427 ; NONE . 
3428 : 
3429 ; OUTPUTS: 
3 
3431 ; FLSANS - CONTAINS THE KEYBOARD INPUT YES OR NO 
3432 ; FLSANS ZERO = NO 
3433 ; FLSANS ONE = YES 
3434 3 
3435 ; IMPLICIT OUTPUTS: 
3436 3 
3437 ; NONE . 
3438 3 
3439 ; SUBORDINATE ROUTINES USED: 
: 
3441 : BREAK - DRS MACRO (THIS MACRO LOOKS FOR CNTL C) 
sae : PRINTF- ORS MACRO, THIS MACRO PRINTS A MESSAGES ON THE CONSOLE 
@ 
aaa ; CALLING SEQUENCE: 
o 
3446 ; CALL FLASH OR JSR PC,FLASH 
3447 3 ‘ 
3 -ee een ecacecececececececaceceececeeceeeee ee eee eee eecececaeceeececeaeeeeeceeceaeaceeee ee eeeee eee ee 
3449 020716 105737 177560 FLASH:: TSTB ‘TKS ;TEST THE KEYBOARD STATUS REG. 
3450 020722 1 BPL 108 }BRANCH IF NOTHING FOUND 
3451 020724 BREAK sLOOK FOR ‘CNTL C’ 
3452 020726 000421 BR ¢ 
020730 042777 000100 161460 10%: IC @100, MOD ;SWITH MODULE L 
3454 020736 012701 000012 40s: MOV #10. .R1 SET UP WAIT COUNTER 
3455 020742 004737 014600 303: CALL wT WAIT FOR 25 MS 
3456 020746 00530 DEC Al ;ARE 250 MS OVER 
3457 020750 001374 BNE 308 sR IF 
020752 032777 000100 161436 BIT #100, @MOD IS THE MODULE LED SWITCHED ON 
3459 020760 001356 BNE FL ;BRANCH IF YES 
020762 052777 000100 181426 BIS #100, MOD ;OTHERWISE SWITCH IT ON 
3461 020770 000762 BR }AND BRANCH TO WAIT LOOP 
020772 012737 000001 021170 20%: MOV @1,FLSANS ;SAVE ‘YES’ ANS 
3463 021000 013737 177562 002476 MOV TKB BAD iGET CHARACTER 
3464 021006 042737 002476 BIC #200, BAD sDISCARD PARITY BIT 
3465 021014 122737 000131 002476 @'Y, BAD sWAS THE TYPED CHARACTER A ‘Y' 7 
021022 001432 BEQ 1 ORANGN IF YE 
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3467 021024 122737 000171 002476 oe 
3468 021032 001426 BEQ 50 
3469 021034 005037 021170 CLR FLSANS 
3470 021040 122737 000116 002476 @'N,BAD 
3471 021046 001 BEQ 
3472 021050 122737 000156 002476 @'n,BAD 
3473 021056 001414 BEQ 4 
3474 021060 0135737 177562 177566 MOV TKB , TPB 
3475 021066 PRINTF 
3476 021106 70 FLASH 
3477 021110 0135737 177562 177566 50$: TKB , TPB 
3476 021116 105737 177560 608: TSTB TKS 
3479 021122 100375 BPL 
3480 021124 013737 177562 002476 MOV TKB BAD 
3461 0211352 0427 000200 002476 BIC #200 ,BAD 
3462 021140 122737 000015 002476 #15,BAD 
3483 021146 001404 BEQ & 
3484 021150 015737 177562 177566 MOV TKB , TPB 
3485 021156 BR FLASH 
3486 021160 013737 177562 177566 70%: MOV TKB, TPB 
3487 021166 RETURN 
3488 
3489 s CONSOLE EQUATES 
3490 
3491 177560 TKS = 177560 
3492 177562 TKB = 177562 
pene 177566 TPB = 177566 
oom 021170 000000 FLSANS: ; -WORD O 
3497 -NLIST BEX 
3498 021172 045 116 045 PROMT: .ASCIZ 
3499 -LIST BEX 
3500 -EVEN 


M6 


/SNSAUNAUTHORIZED CHARACTER, TYPE ONLY ‘Y' 


sWAS IT . pe ‘se’ 3 
sBRANCH I 

s SAVE a 4 ANSMER 

sWAS THE TYPED CHARACTER A 'N’ ? 


sBRANCH IF 
SHAS IT A LOWERCASE ‘n’' ? 
BRANCH 


THE CHARACTER 
iTEST THE KEYBOARD STATUS REG. 
sBRANCH IF NOTHING FOUND 

SGET FOUND CHARACTER 

sMASK OUT PARITY BIT 

3WAS IT A <CR> 

sBRANCH IF YES 

sECHO THE CHARACTER 


sECHO THE CHARACTER 


sKEYBOARD STATUS REGISTER 
sKEYBOARD DATA REGISTER 
;PRINTER DATA BUFFER 


sSAVE LOCATION FOR KEYBOARD BUFFER 


OR ‘N’ THEN <CR> 


/ 


SEQ 0077 
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3553 
3554 021366 
3555 021372 
3556 


3557 
3556 


N6é 


SEQ 0078 
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005037 
105737 
100032 


013737 
37 


000413 
013737 


006237 
000207 


FOSS SHSHSHEHHEHHES HEHE SHE OHEOHHEEH SHEE HEHEHEHHHFEHEFESHOESHEEEHEHHEHEHEHHHEOEH EH OHOD 


; SUBROUTINE CALRET - CONSOLE READ ROUTINE 


FOSSSHSSHSH SHS HHH H SH HHESHEEHHHEHHHHESHOHSEHOHEEHHEHHES HEHEHE FOEOOEHEDED EHO OOS 
FUNCTIONAL DESCRIPTION: 
THIS SUBROUTINE READS THE CONSOLE KEYBOARD gi gt roree 
oa PROGRAM SEQUENCING. THE READING WILL BE DONE WHEN YOU 
CALL THIS SOUBROUTINE BUT NOT UNDER INTERRUPT. 
CALRET AFFECTS THE CARRY BIT. IF THE OPERATOR TYPED A CARRIGE 
RETURN, THE CARRY BIT WILL BE SET. IF THE OPERATOR TYPED 
ANY OTHER CHARACTERS OR NO CHARACTER, THE Sy 4 hewed WILL BE CLEARED. 
THE ROUTINE WILL ALSO TAKE CARE OF THE ' 
INPUTS: 
CONSOLE KEYBOARD BUFFER AND STATUS 
IMPLICIT INPUTS: 
NONE 
OUTPUTS: 
IF READ CHARACTER WAS A CARRIGE RETURN, THE CARRY BIT IS oeT. 
IF READ CHARACTER WAS ANY OTHER CHARACTERS OR NO CHARACTER 
WAS TYPED, THE CARRY BIT WILL BE CLEARED. 
IF READ CHARACTER WAS A CNTL C, THE SUPERVISOR WILL HANDLE IT. 


SUBORDINATE ROUTINES USED: 


Cee oe os oe os oe oe oe oe oe oe os os Gs oe Ge os Ge Ge os Gs Ss GF GF OF as Os as ae Gs Ge Ge oe e oe 


BREAK - ORS MACRO sTHIS MACRO TAKES CARE OF CNTL C 
CALLING SEQUENCE: 
CALL CALRET OR JSR PC,CALRET 
PPP PPP PPP PPA AAA AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA 
CLR CARRFL sTEMPORY STORE FOR CARRY BIT 
TSTB TKS sTEST THE KEYBOARD STATUS REG. 
BPL 10% sBRANCH IF NOTHING WAS TYPED 
BREAK sWAS THE TYPED CHAR. A ‘CNTL C’ 
MOV TKB ,BAD sGET OPERATOR INPUT 
BIC #200,BAD sCLEAR KEYBOARD BUFFER PARITY BIT 
CMP #15,BAD sWAS THE TYPED CHARACTER A RETURN ? 
BNE 20% sBRANCH IF NO 
MOV #1, CARRFL SSET CARRY FLAG 
BR 10% sANO BRANCH 
20%: MOV TKB , TPB sECHO THE CHARACTER 
PRINTF @RETME1 sPRINT THAT ONLY CARRIGE RETURN WILL 
sD0 SOMETHING 
10%: ASR CARRFL sAFFECT THE CARRY 
RETURN 


s CONSOLE EQUATES 





B7 
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3559 177560 TKS © 177560 IKEYBOARD STATUS REGISTER 
3560 177562 TKB = 177562 SKEYBOARD DATA REGISTER 
3561 177566 TPB * 177566 SPRINTER DATA BUFFER 
3568 021374 000000 CARRFL: .WORD 0 1SAVE LOCATION FOR CARRY BIT 


3565 -MLIST BEX 
3566 021376 045 116 045 RETMEL: .ASCIZ /SNSATYPE CNTL C TO ABORT OR RETURN TO GO TO THE NEXT STEP/ 
3567 yd BEx 
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3571 ; SUBROUTINE AMREST - AM9S13 MODULE RESET ROUTINE. 
3572 , 
3573 bee 
3574 : FUNCTIONAL DESCRIPTION: 
3575 3 
3576 : THIS SUBROUTINE IS CALLED AT THE START OF TEST WHICH 
3577 : REFERENCE THE AM9513 COUNTER MODULE. BY RESETS THAT 
3578 , MODULE AND PLACES IT INTO A KNOWN STA 
3579 3 ! 
3580 3s INPUTS: 
3561 3 
3562 : NONE . 
{ 3583 3 
3584 ; IMPLICIT INPUTS: 
! 4 
| 3586 , Ri CONTAINS THE BASE ADORESS OF THE INTERFACE 
A 
| 3588 : OUTPUTS: 
| 3589 3 
| 3590 , NONE . 
| 3591 : 
| 3592 ; IMPLICIT OUTPUTS: 
t 
| 3598 , THE ERROR COUNT FOR THE LOGICAL UNIT BEING TESTED IS 
| 3395 , INCREMENTED IF THE PROGRAM IS NOT LOOPING. 
3 
| 3597 ; SUBORDINATE ROUTINES USED: 
3598 3 
| «3599 ; NONE . 
| 3600 Fy 
| 3602 s FUNCTIONAL SIDE EFFECTS: 
| 3602 3 
| 3603 : EXCEEDS S AND THE USER EVL FLAG IS SELECTED, 
| 3608 ’ THE ‘LOOP ON TEST’ AMD ‘INHIBIT OROPPING OF UNITS’ FLAGS ARE 
3605 , NOT SELECTED, THE UNIT WILL BE DROPPED FROM TESTING 
3606 3 
3601 ; CALLING SEQUENCE: 
3668 ry 
3609 : JSR PC, AMREST 
3610 3 
3611 t-- 
3612 021470 AMREST:: 
3613 021470 SETVEC 64, ONXM, @PRIO7 sSETUP TO CATCH TRAPS 
3614 021516 012761 177777 000002 Sov rs -MREACRI sMASTER RESET 
3615 021524 012761 177750 000002 MOV @COIN1 ,MREACRI ) sINITIALIZE COMMAND 61 
012761 177757 000002 HOV OC $IN2, MREACR1) s INITIALIZE 
3617 021540 012761 177637 000002 MOV 7 ,MREACR1) :OISARM ALL 
021546 012761 177427 000002 MOV 0177427 ,MREACR1) sSELECT FREQ. OUTPUT REG 
3619 021554 012761 070000 000002 MOV 1 sINIT REG. 
012761 177411 000002 MOV 0177411, MREACR1) 
3621 021570 012761 10 000004 MOV 010, MREBCR1) :SET LOAD REGISTER 
3622 021576 012761 177412 000002 MOV 0177412 ,MREACR1) 
012761 10 000004 MOV #10 (R1) :SET LOAD REGISTER 
3624 021612 012761 177413 000002 MOV 0177413, MREACR1) 
| 012761 000010 000004 MOV -@10, MREBCR1 sSET LOAD REGISTER 
012761 177414 000002 MOV 0177414, MREACR1) 
| 3627 021634 012761 000010 000004 MOV @10,MREB(R1) :SET LOAD REGISTER 
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3626 021642 012761 177415 
3629 021650 012761 000010 
3630 021656 012761 177421 

000000 
3632 021672 012761 177422 
3633 021 000000 
3634 021706 012761 177423 

000000 
3636 021722 012761 177424 

000000 
3636 021736 012761 177425 


000000 
3640 021752 012761 177537 
3641 021760 005037 002510 


EEE EEEEEE EERE 
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0177415, HREACRL) 
#10, Ri 

177421 WREACRL) 
ei fraae re MREACR1) 
a1 F7423 FHEACRL 
0177424 ,HREACR1) 
00 ,MREBCR1) 

0177425, MREACR1) 


o, 1 
0177537 ,MREACR1 ) 
INTFLA 


sSET LOAD REGISTER 
sCLEAR HOLD REGISTER 
sCLEAR HOLD REGISTER 
sCLEAR HOLD REGISTER 
sCLEAR HOLD REGISTER 


sCLEAR HOLD REGISTER 
sLOAD ALL COUNTERS 
sINIT INTERRUPT COUNT 





a a ee ee 


E7 
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66 
3662 po she ng 012737 000001 002470 


4 

3675 021776 

3676 021776 005237 002510 
7 022002 


3692 022004 
3693 022004 011637 002472 
3694 022010 162737 oe 002472 


s INTERRUPT SERVICE ROUTINES ; 


SERSESASSE SESEHMSAHSSEKASESDHABSH 


s INTERRUPT SERVICE ROUTINE NXM - NON EXISTANT MEMORY TRAP. 


oe 

s THIS ROUTINE i AS A FLAG NXMFLG TO 1. IT IS EXECUTED WHEN A NON 
; dateeon cues + tape ag OCCURS IF VECTOR 4 HAS BEEN LOADED WITH THE 
ADORE 


; NXMFLG SHOULD BE CLEARED IMMEDIATELY BEFORE EXECUTING CODE WHICH MAY 
s ADDRESS NON EXISTANT MEMORY. 
gee 


BGNSRV NXM 
MOV @1,NXMFLG s FLAG NXM TRAP 
ENDSRV 


FOHSSHHSHSSSHSHSHSHSHHHEHHHHHHHHSHHHEHHESHEHHHSHOHOEHOEHHEHHOOEEHHEOOEOOEOOHHSD 


s INTERRUPT SERVICE ROUTINE - INTSR 


FHSSSHSSSHSHSHSSHSHSHHHSHSSHEHSHHHHHSHHHHSEOHHEHHEHHHEHEHEOHHEOHEOOEOSD 


3¢¢ 

sTHIS ROUTINE ao a A FLAG CINTFLA). IT WILL BE EXECUTED 
sWHEN AN INTERRUPT HAS OCCURRED. 

gce 


BGNSRV INTSR 
INC INTFLA s COUNT INTERRUPTS 
ENDSRV 


SOO OOOOOS EOE OOOO OOOO OOOO OOOO SOE ES OOOO HOSES OOOOOO OOOO OOOOS 
s INTERRUPT SERVICE ROUTINE - 


FOHOOSO SOOO OOOO OHO SOO OHO OHO OOOO OOOO SOO ESE OED OSE O OES OOOO OOOD 
seo 

sTHIS ROUTINE LOADS VECTOR ADORESS INTO BIV. IT IS EXECUTED 

sWHEN AN INTERRUPT OCCURS TO THE WRONG VECTOR. 

& 

sBIV SHOULD BE CLEARED IMMEDIATELY BEFORE EXECUTING CODE WHICH MAY 
sCAUSE THE INTERRUPT 


BGNSRV BADIV 

MOV (SP) ,6IV sLOAD INTERRUPT VECTOR ADDRESS 
SUB 4,8IV sBACK UP TO CORRECT ADDRESS 
ADO mS sCLEAR STACK 

ENDSRV 


SHSSHSHSSHOHSHSSHHHSHSH OSHS OSHHEHHESHHHEFHHHHSHOHEHHESHEHHESHHOHOHHHE OHS 


s INTERRUPT SERVICE ROUTINE - CLINT 


FOSSHHHHHHHSHSHHHHHHHE HOHE HHE HHO HHEHESHESHOSHSEHEHOEHSHHHHEH HF OES HOOD 





ae 


SEQ 0062 





F7 


| 
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3703 seee 
3704 sTHIS ROUTINE IS A DUMY SERVICE FOR THE LINE TIME CLOCK INTERRUPT 
bas IT WILL BE EXECUTED WHEN AN INTERRUPT AT VECTOR 100 IS OCCURED. : 

gree 


| 3708 022024 BGNSRV CLINT 
3709 sNO ACTION IN THIS ROUTINE 
3710 022024 ENDSRV 

ENOMOD 





-—---— -—~- — ee ee — fe one ee teens ee eee ems em we oe | oe ne nes + eee; —— oe eo + en 2 eee = --- 
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aa SEQ 0084 


3725 . TITLE MISCELLANEOUS SECTIONS 
3726 .SBTTL REPORT CODING SECTION 
3755 022026 BGNMOD 
3756 
3737 3; PRINT ROUTINE 
3759 see 
or : FUNCTIONAL DESCRIPTION: 
; 
| 3762 : PRINTS OUT TEST TITLES, A CONFIGURATION TABLE OR A STATISTICS 
ares 3 a FOR THE UNITS UNDER TEST. WHICH TO PRINT IS DETERMINED BY 
H 
3765 3 
3766 ; THE CONFIGURATION TABLE SHOWS THE HARDWARE CHARACTERISTICS OF 
3767 3 THE UNIT UNDER TEST AND IF PRESENT, OF THE UNIT TO WHICH IT IS 
3768 3 CONNECTED FOR L STING. IF THE FIRST UNIT MODE ADORE 
3769 3 IS ZERO (CIE. NO TESTS HAVE BEEN AND NO HAROWARE PARAMETERS 
3770 : HAVE BEEN SET UP) THE AUTOMATIC CONFIGURATION ROUTINE ‘CONFIG’ 
| ore 3 IS CALLED TO ASCERTAIN THE HARDWARE CONFIGURATION. 
i 3 
3773 ; THE STATISTICS TABLE DISPLAYS THE NUMBER OF ERRORS WHICH THE 
3774 3 OIAGNOSTIC HAS DETECTED FOR EACH UNIT, AND WHETHER THE UNIT HAS 
| he 3 OROPPED FROM TESTING. 
37 ; INPUTS 
3 
| 3779 : THE USER IS ASKED TO TYPE A CHARACTER INDICATING WHETHER TO 
3780 F PRINT THE TEST TITLES, THE CONFIGURATION TABLE, THE STATISTICS 
| ons 3 TABLE OR HOW TO REESTABLISH THE SYSTEM CONFIGURATION. 
| 5 
| de ; IMPLICIT INPUTS: 
: 
| 3785 3 THE HARDWARE PARAMETER TABLE IS READ FOR THE CONFIGURATION 
Ah 3 PRINTOUT. 
3 
ros 3 THE ERROR TABLE ‘ECNT’ IS USED FOR THE STATISTICS PRINTOUT. 
é 
3790 3 TEST TITLES ARE ASSUMED TO BE LABELLED WITH THE FORMAT TOHDnn, 
3791 : WHERE nn ss hey TEST NUMBER. NTESTS AT THE START OF THE ROUTINE 
La 3 MUST EQUAL T HE NUMBER OF TESTS IN THE DIAGNOSTIC. 
3 
hed 3; OUTPUTS: 
3 
3796 F EITHER A LIST OF TEST TI”LES, A CONFIGURATION TABLE OR A 
aad $ STATISTICS TABLE ARE OUTFuUT. 
. 
3799 F IF ANY UNIT HAS BEEN DROPPED OR DESELECTED USING THE “UNITS” 
— F SWITCH, A MESSAGE “PLEASE TYPE ADD” MAY BE PRINTED. 
3 
3802 3 IMPLICIT OUTPUTS: 
3803 F 
3804 F NONE . 
3805 3 
3806 s SUBORDINATE ROUTINES USED: 
3807 $ 
F 


CONFIG - AUTOMATIC CONFIGURATION ROUTINE. 





se 
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eo - CONFIGURATION PRINT ROUTINE. 


: 
3810 : - LINE FEED PRINT ROUTINE. 
3611 F 
3812 : FUNCTIONAL SIDE EFFECTS: 
38613 3 
38614 : NO HARDWARE PARAMETERS ARE SET UP, THE AUTOMATIC 
3815 3 CONFIGURATION ROUTINE IS CALLED TO GENERATE A HARDWARE P TABLE. 
3816 3 
3817 : REGISTERS R1 TO RS ARE CORRUPTED. 
3618 3 
3819 : CALLING SEQUENCE: 
3820 3 
3821 3 INVOKED BY THE OPERATOR PRINT COMMAND. 
3822 3 
3823 s-- 
3824 
3825 000013 NTESTS=11. s 11 TESTS FOT TITLE PRINTOUT 
3827 022026 BGNRPT 
022026 ASK: MANUAL s IS MANUAL INTERVATION ALLOWED ? 
3829 022030 BCOMPLETE 10% s IF YES, (UAM NOT SET) 
3830 022032 PRINTF 3 PRINT THAT UAM HAS TO BE SET 
3831 022052 EXIT RPT 3 EXIT ae 
022056 10%: PR1,CHAR,A,377,1,.4,. YES; PROMPT FOR A COMMAND 
3833 022076 023727 023162 000122 CHAR ,@'R s REESTABLISH SYSTEM CONFIG. ? 
3834 022104 001457 BEQ RECON s IF YES, OUTPUT INFORMATION 
3835 022106 023727 023162 000124 CMP CHAR ,@'T 3; TEST List REQUESTED ? 
3836 022114 001515 BEQ TITLE 3: IF YES, OUTPUT TITLES 
3837 022116 023727 023162 000103 CMP CHAR ,@'C 3s CONF IGURATION REQUESTED ? 
022 001574 BEQ CON 3 IF YES, OUTPUT CONFIGURATION 
3839 022126 023727 023162 000123 CMP CHAR ,@'S 3 STATISTICS REQUESTED ? 
3840 022134 001002 BNE HEL : IF NOT, PRINT THE HELP MESSAGE 
38641 022136 000137 022766 JP STAT : IF YES, OUTPUT STATISTICS 
38643 022142 HEL : PRINTF @PR2 3 OTHERWISE, PRINT THE HELP MESSAGE 
3844 022162 PRINTF @PR2A 8 
S 022202 PRINTF @PR2B 3 
022222 PRINTF #@PROC 3 
3847 022242 000671 ASK 3 AND PROMPT FOR COMMAND AGAIN 
3849 022244 RECON: PRINTF @PR2D 3s PRINT HOW TO REESTABLISH 
022264 INTF @PR2E 3s THE SYSTEM CONFIGURATION 
3851 022304 PRINTF @PROF S wea 
022 PRINTF @PR2G S sed 
3853 022344 000137 023152 JP PREX s AND EXIT 
3855 022350 TITLE: PRINTF @TT 3s TEST LIST HEADER 
3856 022370 012701 1 MOV #1,R1 3s START WITH TEST 1 
38657 022374 012702 023172 MOV @TADS ,R2 s START OF LIST OF TITLE ADDRESSES 
3859 022400 012703 000022 108: MOV #18. ,R3 3 WAIT AFTER 18 LINES 
3861 022404 20%: PRINTF @TNUM,R1 3 PRINT TEST NUMBER 
3862 022426 PRINTF (R2) 3 AND TITLE 
38663 022444 062702 000002 ADD #2 ,R2 : GET ADDRESS OF NEXT TITLE 
022450 005201 INC R 3 AND NEXT TEST NUMBER 
3865 022452 020127 000013 CMP R1,ONTESTS 3; ALL PRINTED ? 
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002012 


015572 


002012 


50%: 
55%: 
60%: 


708: 


BGT 30% 
DEC R3 
BNE 20% 
GMANID RDY,RFLG,A,377,0,1, YES 
JSR PC, CRLF 
BR 108 
Jp PREX 
CLR STFLG 
CLR GPFLG 
TST GP 
BEQ 10$ 
INC STFLG 
TST LSUNIT 
BEQ 20% 
CMP LSUNIT, 16. 
BLE 3 
MOV #16. ,LSUNIT 
MOV LSLUN, -(SP) 
CLR L$LUN 
MOV GPADD ,R1 
TST (R1) 
BNE 40% 
MOV #171000, STADD 
MOV L$LUN,R1 
ASL Ri 
TST GPADD(R1) 
BNE 50$ 
GPHARD L$LUN,GPADD(R1) 
BNCOMPLETE ASKADD 
GPFLG 
TST SGPADD(R1 ) 
BNE 8 
JSR PC .CONFIG 
INC L$LUN 
CMP LSLUN,LSUNIT 
BLT $ 
MOV (SP)+,LSLUN 
JSR PC ,CONPRI 
TST STFLG 
BEQ PREX 
TST GPFLG 
BEQ PREX 
PRINTF @PR7 
PREX 


I7 
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IF YES, EXIT 
18 LINES OUTPUT ? 


IF NOT, BRANCH 

ELSE WAIT FOR OPERATOR TO READ 

PRINT A LINE FEED 

AND THEN CONTINUE 

EXIT 

ae te "apvonta Fk te NOT STARTED 
FLAG NO GPHARDS YzT EXECUTED 

ARE ANY PARAMETFA ADDRESSES SET UP ? 

IF NOT, BRANCY 

ELSE FLAG OJ’asNOSTIC IS STARTED 


ANY UNITS SET UP ? 


IF NOT, GRANCH 
TOO MANY UNITS SET UP ? 
IF NOT 


SET UP ‘16 UNITS 


SAVE THE UNIT NUMBER BEING TESTED 
START WITH UNIT O 


GET FIRST PARAM. ADDRESS 

ANYTHING IN IT 

IF YES. BRANCH 

ELSE START FOR FIRST IAV/IDV ADOR. 
FORM OFFSET FOR UNIT TABLES 


PARAMETER ADORESS SET UP ? 
ANCH 


MODE ADDRESS OF UNIT = 0 ? 
IF NOT, BRANCH 

DO AUTO CONFIGURATION 
NEXT UNIT 


ALL DONE ? 
IF NOT, DO THE NEXT 
RESTORE THE UNIT NUMBER 


PRINT THE CONFIGURATION 
WAS DIAGNOSTIC STARTED ? 
EXIT 


EXIT 
ELSE PRINT ‘USE STA OR RES’ 
AND EXIT 


s ASK OPERATOR TO ADD UNITS 


AND EXIT 





—-— = ee 71 
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3992 023264 124 131 120 RDY: -ASCIZ /TYPE “RETURN” FOR MORE TITLES/ 


3923 
3924 022766 STAT: PRINTF @PR3 : PRIMT STATISTICS HEADER 
3925 023006 PRINTF @PR3A ; 
3926 
3927 023026 005001 CLR Ri s START WITH FIRST UNIT 
3928 
| 3929 023030 020137 002012 208: CMP R1,L$UNIT s ALL UNITS REPORTED ? 
| 3930 023034 001444 BEQ 60% s IF YES, EXIT 
3931 923036 010104 MOV R1,R4 3: FORM OFFSET TO ERROR COUNT 
3932 023040 006304 ASL R4 ; 
| 3933 023042 016405 002514 MOV ECNT(R4),R5S s GET UNIT'S ERROR COUNT 
3934 023046 005705 TST RS s IS IT NEGATIVE ? 
3935 023050 100423 BMI 40$ s IF YES, REPORT UNTESTED 
3937 023052 012703 025006 MOV @n0 ,R3 3 ASSUME UNIT IS NOT DROPPED 
3938 023056 105761 002614 TSTB OROPED(R1) 3; CHECK IF IT IS 
3939 023062 001402 BEQ 30% s IF IT IS NOT, BRANCH 
3940 023064 012703 025002 MOV @YES,R3 3 OTHERWISE PRINT YES 
3941 023070 : 308: PRINTF @PRS,R1,RS.R3 s ELSE PRINT STATISTICS 
te | 023116 000411 BR 50$ s AND LOOK FOR MORE UNITS 
eee 023120 40%: PRINTF @PR4,R1 3s PRINT ‘UNTESTED’ 
3946 023142 005201 50$: INC R1 3 PREPARE FOR NEXT UNIT 
os 023144 000731 BR 2n$ 3 IF NOT, REPORT THE NEXT 
zone 023146 004737 014634 60$: JSR PC ,CRLF ; PRINT A LINE FEED 
3951 023152 PREX: EXIT RPT 
3953 023156 000000 STFLG: .WORD O s SET IF i eae HAS BEEN STARTED 
3954 023160 000000 LG ; SET IF ANY GPHARDS ARE EXECUTED 
3955 023162 110 040 040 ASCIZ /H / s STORE FOR OPERATOR INPUT 
023165 040 000 
3956 023170 000000 RFLG WORD 3; FLAG FOR ‘TYPE RETURN FOR MORE TITLES 
3962 023172 TADS TITLES ; LIST OF TEST TITLE ADDRESSES 
023172 O -WORD TSHD1 
023174 030574 -WORD TSHD2 
023176 031216 .WORD TSHD3 
3200 032120 .WORD TSHD4 
023202 033474 -WORD TSHDS 
023204 034076 -WORD TSHD6 
023206 034576 ~WORD TSHD7 
023210 035270 -WORD TSHDS 
023212 036110 -WORD TSHDS 
023214 037122 -WORD TSHD10 
023216 037350 -WORD TSHD11 
3986 
es »NLIST BEX 
3989 023220 045 116 045 TT: -ASCII /sNSATEST TITLES./ 
3990 023240 045 116 045 -ASCIZ /SNBA------------ sN2/ 
3991 
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3993 

3994 023322 045 104 063 TNUM: -ASCIZ /#03/ 

3995 

3996 023326 045 116 045 PRA: -ASCIZ /SNSATO.USE THE PRINT COMMAND, PLEASE CLEAR THE “UAM” FLAG/ 
3997 


3998 023420 124 131 120 PR1: -ASCIZ /TYPE T,R,.C.S OR HELP/ 


4000 023445 045 116 045 PR2: -ASCII /SNSATHE FOLLOWING COMMANDS ARE ACCEPTED : -/ 

4001 023517 045 116 062 -ASCIZ /SN2SAT - PRINT TEST TITLES/ 

4002 023552 045 116 045 PR2A: .ASCIZ /SNSAC - PRINT CONFIGURATION TABLE CURRENTLY USED BY DIAGNOSTIC/ 
4003 023651 045 116 045 PR2B: .ASCIZ /SNSAR - PRINT HOW TO REESTABLISH THE SYSTEM CONF IGURATION/ 
reer 023743 045 116 045 PR2C: .ASCIZ /SNSAS - PRINT STATISTICS TABLESN/ 


4006 024004 045 116 045 PR2D:  .ASCIZ /sNSATO REESTABLISH THE SYSTEM CONFIGURATION, ANSWER THE/ 
4007 024074 045 116 045 PR2E:  .ASCIZ /sNSAHARDWARE QUESTION TYPING "0" AS THE MODE ADDRESS FOR 16 UNITS. / 
4008 024177 045 116 045 PROF:  .ASCIZ /SNENSAEG. MODE REGISTER ADDRESS (0) 0? Ocssescsecceeceee/ 

4009 024273 045 116 Cen a .LUlUlCtUtwU”!.””CO””COC”C~C~C~C”:C:C”:”CO i geeatinnnserenens y 

4010 024367 045 116 O62 PRS: ASCII \SN2NAIDV/IAV-11 MODULE STATISTICS. \ 

4011 024431 045 116 045 PETE MMe cccsccwccnscccncccoccceccsees 

4012 024474 045 116 062 PR3A: .ASCIZ /sN2SAUNIT ERRORS OROPPEDSN/ 

4014 024533 045 116 045 PR4:  .ASCIZ /sNSD3SA UNTESTED NO/ 

4016 024564 045 116 045 .ASCIZ /SsNSD3SSSAD36S787/ 


PRS 
4018 024605 045 116 045 PRE: -ASCII /SNSAUNIT DROPPED OR DESELECTED - PLEASE TYPE “ADD"/ 
4019 024667 040 101 116 -ASCIZ / AND TRY AGAIN/ 


4020 
4021 024706 045 116 045 PR7: -ASCIZ /SNSAPLEASE TYPE “START” OR “RESTART” TO CONTINUE TESTING. #N/ 
4023 025002 131 105 123 YES: -ASCIZ /YES/ 

025006 /O0/ 


4024 116 117 000 NO: -ASCIZ 
4025 

4026 -LIST BEX 
4027 -EVEN 
4028 

4029 025012 ENORPT 
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4031 -SBTTL PROTECTION TABLE | 
4032 

4033 a 

4034 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 

4035 ; TO PROTECT THE LOAD MEDIA. 

4036 

4039 

4040 025014 000000 0 sOFFSET INTO P-TABLE FOR MODE ADDRESS 

4041 025016 177777 “3 sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 

ao 025020 177777 “i sOFFSET INTO P-TABLE FOR ORIVE NUMBER 


| 
3 -- 
4037 
4038 025014 BGNPROT 
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INITIALIZE SECTION 


4139 025316 


ooo 


005037 


M7 


SEQ 0090 
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026214 


002614 
000020 
002514 
000020 


100000 


002634 
002636 


002012 


- SBTTL 


INITIALIZE SECTION 


; 1 THe IN INITIALIZE SECTION ya THE CODING THAT IS PERFORMED 


START: 


10%: 


55%: 


60%: 


RESTRT: 


STARES: 


ME BEGINNING OF EACH P 


BGNINIT 

C.R LOOPEX s CLEAR LOOP FLAG 
READEF @€F .START s IS THIS A_ NEW START ? 
BNCOMPLETE RESTRT s IF NOT, BRANCH 

SETVEC @14,0113240,0340; eee JUST FOR DEBUG PROGR 


SETVEC 100, @CLINT,@340; IGNORE FURTHER INTERRUPTS. 10. VECTOR 100 
PRINTF @WARN s CONNECT si CONNECTOR 


PRINTF @WARNLI sAND VOLT 

JSR »WROY sWAIT FOR OPERATORTO TYPE RETURN 

JSR CRLF sPRINT A LINE FEED 

BRESET 3; RESET THE SYSTEM 

JSR PC, SETCLK s SET UP CLOCK COUNTER 

TST LSUNIT 3 ANY ears CONFIGURED ? 

BEQ 20% s IF 

CMP LSUNIT, 016. ; TOO has UNITS SET UP ? 

BLE 30% : IF NOT, BRANCH 

MOV #16. ,LSUNIT ; ELSE, SET UP 16 UNITS 

CLR ACFLG 3 CLEAR AUTO CONFIGURATION FLAG 

MOV @LOPFLG RO 3 FLAG THAT LOOP CONFIGURATION IS NOT CHECKED 
#16. ,R1 s FOR oeeeie 16 UNITS 

CLR (RO)+ 3; CLEAR THE FLAG 

DEC RL s ALL DONE ? 

BNE 50% s IF NOT, OO THE NEXT 

MOV »RO 3s GET UNIT DROPPED TABLE ADDERSS 

MOV #16. ,R1 3 THERE ARE 16 UNITS 

CLRB CRO)>+ 3; CLEAR ALL 16 DROPPED UNIT FLAGS 

DEC Ri oes 

BNE 55% Seat 

MOV #ECNT,RO 3s GET ERROR COUNT FOR UUT O 

MOV #16. ,.R1 3 THERE ARE 16 UWT'S 

MOV #100000 , (RO)+ 3; INIT THE ERROR T 

DEC R1 s ALL CLEARED ? 

BNE 60% ; IF NOT, CLEAR NEXT COUNT 

BR STARES ; ELSE, START TESTING WITH FIRST UUT 


READEF EF .RESTART s IS THIS A RESTART ? 
BNCOMPLETE NEWST IF NOT, BRANCH 


CLR TSTFLG s SHOW NO TESTS HAVE BEEN RUN THIS PASS 
CLR TSUFLG s OR FOR THIS UNIT 
BR INIUUT s START TESTING WITH FIRST UUT 





ay 
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002634 


014662 
002636 


177777 
026214 
000002 


002074 
002074 


002074 


002554 


015306 
000001 


154742 


154664 


002074 
026214 


002012 


026212 


NEWST: 


108: 


PWRFL: 


NXTUUT: 


10%: 


INIUUT: 


NEXT: 


N7 


READEF O€F .NEW 
BNCOMPLETE CONT 
TST TSTFLG 
10% 
PRINTF @NTEST 
DOCLN 
CLR TSTFLG 
TST ACFLG 
BEQ INIUUT 
CLR LG 
JSR PC, CONPRI 
JSR »WROY 
BR INIUUT 
O€F . I 
TE L 
SETVEC #4, ONXM, OPRIO7 
BIS #100, 
Cu oS 
END 
READEF @€F .PUR 
BNCOMPLETE NXTUUT 
SETVEC #4, ONXM, OPRIO7 
BIS * arceatnaad 
PSEUL1 
TST TSUFLG 
BNE 10% 
PRINTF @NTEST1,L$LUN 
JSR PC ,WROY 
CLR TSUFLG 
BR NEXT 
MOV @-1,L$LUN 
INC LOOPEX 
CMP #2 ,,LOOPEX 
NEXT 
PRINTF @WRSEL 
DOCLN 
INC L$LUN 
CMP L$LUN,LSUNIT 
BGE INIUVUT 
MOV L$LUN,RS 
ASL RS 
GPHARD LS$LUN,R1 
a NEXT 
R1,GPADDCRS ) 
Ts (R1) 
BNE ie : 
JSR P., CONFIG 
MOV #1. ACFLG 


ooo 


IS THIS A NEW PASS ? 

IF NOT, BRANCH 

ves be adi. SELECTED LAST TIME ? 
IF NOT, TELL THE USER 

AND RETURN TO THE SUPERVISOR 


INIT TEST FLAG AGAIN 
JUST DONE A RUN OF oat CONFIGURATION ? 


THEN TEST THE FIRST UNIT 


IS THIS A CONTINUE ? 
IF NOT, BRANCH 
IGNORE NXM TRAPS 


ELSE, LIGHT UUT LED 
RESTORE THE SUPERVISOR NXM VECTOR 
AND CONTINUE 


IS THIS A POWER FAIL 
IF NOT, MUST BE NEXT UNIT 
GNORE NXM_ TRAPS 


I 

ELSE, LIGHT UUT LED 

RESTORE THE SUPERVISOR NXM VECTOR 
AND CONTINUE 


WERE ANY TESTS RUN ON THE LAST UNIT ? 
BRANCH 


WARNING 
LET THE OPERATOR READ IT 
SHOW NO TESTS FOR NEXT UNIT 
AND TEST THE NEXT UNIT 


INITIALIZE LOGICAL UNIT NUMBER. 
ARE WE IN A UNIT LOOP 


BRANCH IF NO 

IF YES PRINT NOT CORRECT UNIT SELECTED 
AND RETURN TO THE SUPERVISOR 

NEXT LOGICAL UNIT TO BE TESTED ? 

ALL UNITS TRIED ? 

IF YES, START AGAIN 


SAVE =) NUMBER 
FORM OFFSET 


GET PARAMETER TABLE ADORESS IN R1 

IF DROPPED, GET THE NEXT 

ELSE SAVE THE ADDRESS 

MODE ADDRESS = 0 ? 

IF NOT, BRANCH 

ELSE DO AUTO CONFIGURATION FOR THIS UNIT 
AND FLAG THAT WE ARE DOING IT 





ANEOUS SECTIONS 


4197 025732 


MISCELL 
INITIALIZE SECTION 


016501 


B& 


SEQ 0092 
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002012 


000100 154264 
100000 002514 
000420 


70%; 


WE 88 888888e 


* 
ao on 


agkay £8 


108 : BRANCH IF ANOTHER UNIT FOUND 
L¢UNIT 1 ARE THERE ANY UNITS TO TEST ? 
INIUUT 3 IF YES, START AGAIN WITH THE FIRST UNIT 
@NODE V 5 ELSE PR TS FOUND” 
§ 


GPADO( RS) ,.R1 s GET PARAMETER TABLE ADDRESS IN Ri 


(R1),MOD 1 SAVE NEW MODE REGISTER ADDRESS 
(R1),CSR : 
@2,CSR é 
cRi),CoR } SAVE NEW CCR REGISTER ADDRESS 
(Ri)>, INR | SAVE NEW INR REGISTER ADORESS 
06, INR ‘ 
(R1)+, VEC 1 SAVE NEW VECTOR ADDRESS 
(R1)+,PRIO ; SAVE NEW PRIORITY 
NOFLG : 
04, 60001, 0PRIO7T | I TRAPS 
a0 RI } GET MODE REGISTER CONTENTS 
’ RESTORE NXM TRAP CATCHER 
Ri 1 SAB MOD REGISTER 
Now LG : IS THE USED ADDRESS ACCESSABLE ? 
8 
Ri, e300 ; IS IT A FIVE CHANEL COUNTER ? 
NEXT ; IF NOT 
@100 , BOD : SMITCM ON UUT LED 
@100000,ECNT(RS); FLAG UNIT IS BEING TESTED 
0420, ; SET UP FOR FIVE CHANNEL COUNTER 
608 ’ MERE IF ID IS S00 (FIVE CHA. COUNTER) 
10000 ,R2 | ASSUME SPECIFICALLY SELECTED TEST 
R2, CONMSK ; SAVE TEST CONTROL MASK 
LOTFLA » INIT LOOP ON TEST FLAG 
RO | GET OPERATOR FLAGS 
@.0T.RO ; LOOP ON TEST SELECTED ? 
3: IF NOT, 
LOTFLA 3 ELSE SET FLAG 
LOOPEX F 
INIT 
0 


SET IF AUTO CONFIGURATION IS TC BE DONE 
0 SET IF NOT THE COORECT UNIT IS SELECTED 
8ex s IN THE START COMMAND 


/@NGACONNECT TEST CONNECTOR AND REQUIRED VOLTAGE 
/@NSATO FIVE CHANNEL COUNTER MOOULES THAT SHOULD “ee TESTED. / 
eee ee ee ee ee ee ee ere 


STS WERE RUN ON UNIT SDSHA./ 
/MSASELECTED UNIT IS +B A FIVE CHANNEL COUNTER. SN/ 


/@AOR ID CODE IS 





——_ - - a oe ee ee ee ee ——— 
—o cnn eee ee ee - ee - 
- ee 6 ee oe ewe meee +--+ 


C8 


MISCELLANEOUS SECTIONS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 46-3 — Se 
INITIALIZE SECTION | 


4254 -LIST BEX 
EVEN 


4256 
4257 026646 ENDINIT 





oc me er se ee eee ew rr tere ee ae Se oe IT 


a a a ee ee ee eee Ct” ee ee ee ae eee ce 


D8 


SEQ 0094 
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4272 pte rere aged“ caidas 
4273 ; SUBROUTINES USED DURING INITIALISATION. # 
4274 BEd PASO MBEEEM LOSE CEOS EES eee 
7S 
pr bt \SBTTL SETCLK - ROUTINE TO SET UP DELAY COUNTS 
4277 
4278 gee 
4279 ; FUNCTIONAL DESCRIPTION: 
4280 3 
4281 : THIS ROUTINE SETS UP 3 DELAY VARIABLES CALLED CNT2SM, CNTSOO, AND 
4282 ; CNTZS. THESE GIVE DELAYS OF APPROXIMATELY 25 MILLISECONDS. SOO 
4263 : MICROSECONDS OR 25 MICROSECONDS RESPECTIVELY IF USED AS FOLLOWS: - 
4285 : MOV CNTXXx, RO 
4266 : 1$: DEC RO 
4287 : BNE 18 
5 
4269 : THE COUNTS ARE DERIVED FROM AN L CLOCK IF THERE IS ONE. 
4290 : OTHERWISE, THE OPERATOR IS ASKED TO TYPE 2 CHARACTERS ON THE 
4291 ; CONSOLE 6 SECONDS AP 
4292 3 
4293 ; INPUTS: 
§e94 3 
4295 : NONE . 
4296 3 
4297 ; IMPLICIT INPUTS: 
4299 : IF CNT25M IS NOT ZERO (ALREADY SET UP), THE ROUTINE DOES NOTHING. 
4301 ; OUTPUTS: 
4303 ; CONSOLE MESSAGE IF THERE IS NO L CLOCK ON THE SYSTEM. 
4305 ' IMPLICIT OUTPUTS: 
4307 ; CNT25M CONTAINS THE COUNT REQUIRED FOR 25 MILLISECONDS. 
4308 : CNTSOO CONTAINS THE COUNT REQUIRED FOR SOO MICROSECONDS. 
4309 ’ CNT25 CONTAINS THE COUNT REQUIRED FOR 25 MICROSECONDS. 
4311 } SUBORDINATE ROUTINES USED: 
4313 ; CRLF - LINE FEED PRINT ROUTINE. 
4314 ’ CLINT - DUMMY CLOCK INTERRUPT SERVICE ROUTINE 
g 
4316 ; FUNCTIONAL SIDE EFFECTS: 
4318 : RO TO RS ARE CORRUPTED. 
4320 ; IF A LINE TIME CLOCK IS FOUN. VECTOR 100 Is SET UP SO THAT 
4321 , INTERRUPTS TO IT ARE IGNORED. THE SETVEC MACRO CAN BE USED TO 
4322 , SET UP THE VECTOR FOR A OevIcE INTERRUPT. 
5 
4324 ; CALLING SEQUENCE: 
4325 ‘ 
4326 , JSR PC, SETCLK 
4327 3 
$ 
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014626 
027524 


027526 


027174 


4370 027076 
pi 027100 


4373 027102 
4374 027104 
4375 027106 
4376 

4377 027110 
4376 027114 


027526 


| 
| 
| 
' 
| 
| 
4347 
4348 
4349 026766 


E8 


Wednesday 03-Oct-84 14:03 Page 47-1 


SETCLK: TST CNT25M i 

BEQ 108 
SETEX 

108: CLR R4 3 
GETPRI Re 4 
CLR CLKFLG 5 
SETVEC 4, @ONXM, 0340 4 
CLR LG 3 
TST @cRi) ’ 
TST NXMFLG 3 
TST NXMFLG 3 
BNE LCLOCK i 
INC CLKFLG 8 
MOV #100, @(R1) Hy 

8 

s USE THE L CLOCK 

é 

LCLOCK: CLRVEC 4 ’ 
CMP 6(R1), 050. $ 
BEQ 10% ry 
INC R3 3 

10%: MOV R3,R5 : 
SETVEC #100, KLINT, 0340; 

$ 

SETPRI #0 ’ 
CLR «RO : 

208: Chop R3,RS 3 
BNE 30% i 
DEC RO ; 
BNE 20% 3 
JP USCLOK 3 

30%: CLR RS 3 

40%: INC Ra ry 
BNE 40% 5 
INCB RS 3 
BNE 408% 3 
8R USCLOK 5 

KLINT: O€C R3 5 
BEQ 40% i 
RTI ’ 

40%: SETPRI R2 
SETVEC #100, @CLINT, #340; 
CMP CSP )+,(SP)-+ i 
TST CLKFLG ‘ 
BEQ 50% 3 
CLR @cRi) ’ 

50%; CLC r] 
ROR RS ; 


s IF NOT, 
s IF VES, EXIT 


SEQ 0095 
COUNTERS ALREADY SET UP? 
BRANCH 


gh COUNTER 
VE CURRENT PRIORITY IN R2 
THERE IS NO CLOCK WITH A CSR 
OCK TABLE 


IF NOT, 


Rang 


ee Puss 
x 


: 


sSEERS 
kb 
323 
: 
: 


ae 
3% 
8 
Be 
4 
8 


s RESTORE THE PRIORITY 


IGNORE FURTHER INTERRUPTS TO VECTOR 100 
TIOY UP THE STACK 
CAN WE DISABLE A CLOCK ? 


IF NOT, 
ELSE, DISABLE CLOCK INTERRUPTS 


DIVIDE THE 100 MILLISECOND COUNTERS 
BY 4 TO GIVE 25 MILLISECONDS 
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006004 
000241 


4398 027234 


013737 
012737 
012705 
005305 
001376 
005204 
000772 


013737 
004737 


| 4442 027444 010437 


MACRO V 


027526 


177566 
177560 


177566 


Sy a 
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ROR Ra ; 
cic ' 
ROR 5 
ROR RS $ 
BR SAVCNT ’ 


AND SAVE THE COUNT 


; 
s COME HERE IF NOT ENOUGH CLOCK INTERRUPTS OCCUR BEFORE THE COUNTERS OVERFLOW 


USCLOK: SETPRI 


Re ; RESTORE THE PRIORITY 
SETVEC @100,@CLINT,@340; IGNORE FURTHER INTERRUPTS TO VECTOR 100 
TST ‘CLKFLG ; CAN WE DISABLE A CLOCK ? 
BEQ - NOCLOK | IF NOT, BRANCH 
CLR @CR1) ; ELSE DISABLE CLOCK INTERRUPTS 
} USE THE CONSOLE FOR TIMING 
, 1K$*177560 ; KEYBOARD STATUS REGISTER 
1KB=177562 ; KEYBOARD CATA BUFFER 
1PS=177564 ; PRINTER STATUS REGISTER 
1PB=177566 ; PRINTER DATA BUFFER 
NOCLOK: SETVEC #60,@TTINT,@340 ; SET UP INTERRUPT VECTOR 
INTF ; TYPE 2 CHARACTERS 6 SECONDS APART’ 
10s:  TSTB TKS ; IS FIRST CHARACTER READY? 
108 ; IF NOT, 
TKB,RO ; ELSE GET THE CHARACTER 
BIC  - #177600,RO ; OF UNMANTED BITS 
CH séRO,83 ; IF *C, RETURN TO SUPERVISOR 
BNE 20% 3 
DOCLN : 
208: TKB, TPB ; NOW ECHO THE CHARACTER 
SETPRI 00 ; OROP THE PRIORITY 


#100, TKS ’ 

30%: MOV 0240. ,.R5S 3 
40%: DEC RS 8 
BNE 408% + 

INC Rg 3 

BR 30% 3 

TTINT: SETPRI Re 8 
CLRVEC #60 8 

CMP (SP)¢,CSP)-+ r 

CLR s 8 

MOV RO 8 

BIC #177600 ,RO $ 

CMP RO,@3 3 

BNE 10% : 

DOCLN 8 

108: MOV TKB , TPB 3 
JSR PC, CRLF 3 


; 
s SAVE THE COUNTERS 
R4,CNT25M 


; 
SAVCNT: MOV 


ALLOW INTERRUPTS 

SET UP MODULO 240 COUNTER 

START COUNTING 

RS IS MODULO 240 COUNTER 

UPDATE THE 

6 SECONDS/240 = 25 MILLISECONDS 
RESTORE THE PRIORITY 

ANO KEYBOARD VECT 

ELSE GET THE dan Le 


DISCARD UNWANTED BITS 
IF tC, RETURN TO SUPERVISOR 


ELSE, ECHO THE CHARACTER 
AND PRINT A LINE FEED 


SAVE THE 25 MILLISECONDS COUNTER 
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4443 027450 012700 000062 MOV #50. ,RO 
4444 027454 062704 000031 ADO @25. ,R4 
4445 027460 005001 CLR Ri 
4446 027462 160004 10%; SUB RO,R4 
4447 027464 002402 BLT 20% 
027 005201 INC Ri 
4449 027470 000774 BR 10% 
4450 027472 010137 014650 20%: MOV R1,CNTSOO 
4@4S2 027476 012700 000024 MOV #20. ,RO 
4453 027502 062701 000012 ADO #10. ,R1 
027506 005002 CLR 2 
4455 027510 160001 30$: SUB RO,R1 
4456 027512 002402 BLT 40% 
4457 027514 005202 INC R2 
4458 027516 0C0774 BR 30% 
4459 027520 010237 014652 403: MOV R2,CNT25 
4461 027524 000207 SETEX: RTS PC 
4463 027526 000000 CLKFLG: .WORD 0 
NLIST BEX 
4466 027530 045 116 04S TIMMSG: .ASCIZ age TYPE 


nc a ne 2 ee = ee 


G8 
| 
eon aa SEQ 0097 | 
NOW DIVIDE BY SO | 
50 


TO NEAREST 
INITIALISE RESULT 


SAVE THE SOO MICROSECONDS COUNTER 
NOW OIVIDE BY 20 

TO NEAREST 20 

INITIALISE RESULT 

REMAINDER < 0 ? 

IF YES, BRANCH 
ELSE INCREMENT RESULT 

AND TRY AGAIN 

SAVE THE 25 MICROSECONDS COUNTER 
3 RETURN 


SET IF ORS FINDS A CLOCK WITH A CSR 


2 CHARACTERS 6 SECONDS APART >/ 
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4470 .SBTTL AUTOOROP SECTION 
4474 3 THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST 
4475 : SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
4476 : DROPPED FROM TESTING. 
4477 atid 
4478 
4479 027600 BGNAUTO 
44e0 
4487 027600 SETVEC @4,@NXM,@PRIO7 ; SET UP NON - EXISTENT MEMORY TRAP VECTOR. 
4488 027626 005037 002470 CLR NXMFLG s CLEAR NON - EXISTENT MEMORY FLAG 
4489 027632 005777 152560 TST S00 s REFERENCE MEMORY ADDRESS FOR THE DEVICE 
| pote s TO SEE IF IT EXISTS. 
4492 s IF THE DEVICE DOESN'T EXIST, THE RESULTANT TRAP TO VECTOR O04 WILL 
pe : CAUSE THE FLAG NXMFLG TO BE SET (SEE INTERRUPT ROUTINE NXM). 
4495 027636 005737 002470 TST NXMFLG s: WAS THERE A TRAP ? 
4496 027642 001404 BEQ 10% s BRANCH IF NOT 
4497 027644 D00U L$LUN s ELSE DROP THE DEVICE 
4496 027652 DOCLN s CLEAN CODE . 
4499 027654 10%: CLAVEC 04 s RETURN VECTOR 04 TO NORMAL STATE 
4500 027662 ENDAUTO 


| 
| 
i 
= 
aa 
4473 ; "THIs CODE IS EXECUTED aT att AFTER THE INITIALIZE CODE IF 
ARE CHECKED TO 





i8 


| MISCELLANEOUS SECTIONS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 49 | 
' CLEANUP CODING SECTION | 


4502 -SBTTL CLEANUP CODING SECTION 


t¢ 
4505 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
4506 ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
4507 ie 


| 4508 

| 

| 
4520 027664 
4536 


s DO A BUS RESET TO SWITCH OFF ALL LEDS 


4537 027672 ENOCLN 








a T= I ee ee 


| 


a ee 


J8 


SEQ 0100 
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| DROP UNIT SECTION 


-SBTTL OROP UNIT SECTION 


tee 
3 THE OROP-UNIT ght CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 

gee 


BGNOU 
010026 MOV RO, (SP )+ s SAVE RO CONTENTS 
112760 000001 002614 MOVB #1 ,DROPED(RO) s FLAG UNIT ARAM TABLE 
014600 Vv -(SP),RO s GET ORIGINAL RO CONTENTS 
PRINTF @DROPD,RO s ‘UNIT DROPPED’ 
OU 
045 116 04S DROPD: 








'; 


7 

| 
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| ADD UNIT SECTION : 


4584 -SBTTL ADD UNIT SECTION 

4585 

4586 see 

4587 3 THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
4588 : TCO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
4589 ; TO THE TEST CYCLE. 

4590 t-- 

459 

4602 

4603 027766 105060 002614 CLRB DROPED( RO) : FLAG UNIT NOT DROPPED IN PARAM TABLE 
4605 027772 EXIT AU 

4606 

2618 

4619 EVEN 

4620 

4621 027776 ENDAU 

4622 

4623 030000 ENDMOD 

4624 


| 

| 1 

| 4592 027766 BGNAU 
4593 

4625 





L8 


SEQ 0102 
HARDWARE TESTS MACRO VOS.00 Wednesday 05-Oct-84 14:03 Page S2 
ADD UNIT SECTION 


4627 . TITLE HARDWARE TESTS 
4638 
| 4639 -S8TTL TEST 1: Register NXM Test. 
4674 
4675 030000 
| 4676 Mriiiiiiitii tii tiiiiiiiiiiiiitiiiririiiiiititiiiiiiiiiiiiititiitiititiT tity. 
4677 F Test 1 - Register NXM Test. 
4678 3 
| 4679 F FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 
4680 | POROSERESSSREESSESEESSSERESEESEERESESEEEEL OESSEEEESEDEEEDSESESESEOSEOEEESES 
4687 
4693 030000 BGNTST 
4694 030000 004737 015006 CALL SELECT sCALL SELECT ROUT 
4695 030004 000420 -WORD 420 sGIVE TEST P. TER 
030006 030206 TSHD1 sGIVE TES 
4697 030010 103467 ecs Exe@vi sIF CARRY IS SET, EXIT TEST 
4696 030012 005037 002504 CLR 4, TRCNT sCLEAR ITERATION COUNT 
4699 030016 SETVEC ns @PRIO7 sSET UP INTERRUPT ROUTINE 
4 030044 013701 002416 ITRACi1: MOV MOD ,R1 sGET FIRST REGISTER ADORESS 
4701 030050 162701 000002 @2,R1 
4702 030054 012702 000004 MOV #4,Re2 T COUNTER FOR 4 REGISTERS 
4703 030060 CLR R3 + TTEAR LOCATION FOR ERROR MARK 
a 030062 062701 000002 108: ADO @2,R1 sGET REGISTER ADDRESS 
4705 030066 BGNSEG $ 
4706 030070 CLR R4 3 
4707 030072 005711 TST (R1) sTEST REGISTER ADDRESS 
47086 030074 005704 TST R4 i THERE A TRAP? 
4709 030076 004737 015240 CALL INSERT sSKIP BRANCH IF “SFI” IS SET 
4710 030102 001407 BEQ 20% sIF NO, BRANCH 
4711 030104 004737 015240 CALL INSERT sSKIP BRANCH IF “SFI” IS SET 
4712 030110 005203 INC R3 sMARK THE ERROR 
4713 030112 101,E101,EERA sERROR HANDLER 
4714 030122 208: ENDSEG 3 
4715 030124 302 DEC R2 sALL REGISTERS TESTED 
716 030 001355 BNE 10% 8 » BRANCH 
4717 030130 005703 TST R3 sWAS THERE AN ERROR 
4718 030132 001404 BEQ 30% sIF NO, DON’T OROP THE UNIT 
4719 030134 LSLUN sOROP THE UNIT UNDER TEST 
4720 030142 N ;RUN THE CLEAN UP ROUTINE 
4721 030144 005737 002164 30%: TST 3IS QUICK VERIFY PASS SELECTED? 
22 030 001007 BNE Exevi sIF YES EXIT TEST 
4723 030152 37 002504 INC T s ITERATION 
4724 030156 023737 002506 002504 CoP ITROEF , ITRCNT sDEFAULT ITERATION EXECUTED 
4725 030164 001401 BEQ xQv1 sIF YES EXIT TEST 
4726 030166 000726 BR ITRACi sIF NO, TEST ITERATION - 
4727 030170 Exevi: ga 3 J 
yak 4 030176 TSTEN1: EXIT TST 
4746 030202 BGNSRV LOCATE sSERVICE ROUTINE LOCATE 
4747 030202 005204 INC RS s INCREMENTS R4 IF A TRAP TO 4 
poms 030204 ENDSRV sHAS OCCURRED 
4750 -MLIST BEX 
4751 030206 O45 123 062 TSHD1:: .ASCIZ /sSS2SAREGISTER NXM TEST.SN/ 
4752 030240 122 105 107 €101: 


Sastsee ADDRESSING ERROR - TRAP TO 4/ 





HARDWARE TESTS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 52-1: SEQ 0105 
| TEST 1: Register NXM Test. 


4755 030306 ' ENOTST 


| 


4783 030372 
phe = 030376 


4813 030556 


015006 
002504 


000001 
177777 


002424 
000006 


031016 


152024 


151776 
151770 


002474 
002476 


002504 


N8 
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TEST 2: Reset Test 


.SBTTL TEST 2: Reset Test 
J SSASSSSHSSASSSSHSSESSSESSADSSSSSSSHEAASSASEESEHESSHEESESEEEASEHEESEEEEEHKEEEREEEEE 


30%: 


50%: 


708: 


Test 2 - Reset Test. 


ta ea 


SEQ 0104 


FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 
; scapes ~~ ~~ ‘eaganatoe, ance esaiees scene cam aaa a acatanaceiiaimeeaianeacinrnreinenie: 


RSAVCR2),GO0D 
@R5 BAD 


INSERT 

70% 
203,E203,EERB 
04,R3 


2g 


#2, ITRCNT 


sCALL SELECT ROUTINE 
sGIVE TEST . oo oe 


sCLEAR ITERATION COUNT 
sCLEAR TEMPORARY STORE 

sGET MODULE TYPE (FOR LATER USE) 
sCNMASK FOR 5 CHA. COUNTE 
sMODULE IDENTIFICATION 

Boos 

Boos 


+ eee 

sMULTYPLY BY 10 TO GET TABLE 
sOF FSET 

Bees 

sSTART WITH INR REGISTER 


300 A BUS RESET 

3IS LED BIT CLEARED ? 

sSKIP BRANCH IF “SFI” IS SET 
sBRANCH IF YES 

8 HANDLER 


: 

sSWITCH ON THE MODULE LED 

IS LED BIT NOW SET ? 

sSKIP BRANCH IF “SFI” IS SET 
{BRANCH IF YES 

sERROR HANOL 

H 

sGET INR REGISTER ADDRESS 
sPOINT TABLE OFFSET TO INR CONT. 


sGET FIRST COMPARE CONTENTS FROM TABLE 
sGET FIRST REGISTER CONTENTS 

iCHP TABLE CONT.WITH REG. CONT. 

“eel BRANCH IF “SFI” IS SET 


rERROR HANOLER 
FALL REGISTER TESTED ? 
s;BRANCH 


IF YES 
; COUNTER FOR NEXT REGISTER 
sLOAD NEXT TABLE ADOR. 
sLOAD NEXT REGISTER ADDR. 

; 


IS QUICK VERIFY _— SELECTED? 
sIF YES EXIT TEST 

sITERATION COUNTER + 1 

sTWO ITERATION EXECUTED 





HAO RARE 
TEST 2: Reset Test 


4615 0 $7 

ont 030570 

48616 030574 045 

4619 030617 114 

4820 030704 114 

4821 030751 122 

4822 

4623 

aboe 

4625 031016 000000 
7 

48626 031026 


B9 


TESTS MACRO VOS.00 Wedneedey 03-Oct-84 14:03 Page 55-1 — lo 
BEQ Exeve sIF VES ExIT TES? 
BR ITRAC2 sIF NO, TEST ITERATION 
Ex@v2: EXIT TST 
-MLIST 
123 062 TSHD2:: .ASCIZ /SS28ARESET TEST. 
105 104 €201: -ASCIZ AED BIT IN MOD REGISTER NOT Tou AFTER BUS RESET / 
105 104 E202: -ASCIZ AED BIT IN MOD REGISTER CAN'T BE SET/ 
105 107 E203: —— /REGISTER INCORRECT AFTER BUS RESET / 
3 1.REG.. 2.REG., 3.. 
000000 000000 RSAV: Ss ari 0. 0. <0340 sREG. MASKS FOR S CHA. COUNTER 
“EVEN 
ENDTST 


HARDWARE 
TEST 3: 


TESTS 


48637 031030 
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Register R/w Bit Test. 


015006 


002504 


000001 
177777 


014052 


- SBTTL 


TEST 3: Register R/W Bit Test. 


WITITITITIIiiitiiiiiiiiiiriiiiiiiiiiiiiriiiiiiiiiitiiiiiiitiitiitiiitiiity 
Test 3 - Register R/W Bit Test. 


FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


BGNT 
CALL SELECT 
-WORD 420 
TSHOS 
ecc 16 
ExIT TST 

a ITRCNT 
SETPRI @PRIO7 
CLR Ri 
MOVB oR1 
MOV #1,Ri 
MOV 6-1, 
INC R2 
ASR RY 
Bcc 10% 
ASL R2 
ASL R2 
ASL R2 
MOV @1,R3 
mov ° 
MOV 0301. , ERRNBR 
MOV RWAAK(R2 ) , MASK 
CALL REGTS1 
cr #4 ,R3 
BEQ 308 
INC R3 
ADO @2,.R2 
ADD #2, 
BR 208 
TST Qvp 
BNE ExQvs 
INC ITRCNT 
cr ITROEF , ITRCNT 
6£O Exav3 
JP ITRAC 
EXIT TST 
-MLIST BEX 
-ASCIZ /SS28AR-W BIT TESTSN/ 
-LIST 6EX 
-EVEN 

1.REG., 2.REG., 3. 

. WORD 0. 0, 


CLEAR TEMPORARY STORE 
sGET MODULE TYPE (FOR LATER USE) 
OR S CHA. COUNTER 


é 
sMODULE IDENTIFICATION 
8 eee 


te ee 
sPULTYPLY BY 6. TO GET TABLE 
3s OF FSET 


8 
sSTART WITH FIRST REGISTER 


REGI ss 
sTEST AGAIN WITH NEW PARAMETER 


sIS QUICK Le a PASS SELECTED? 
sIF VES, EXIT TEST 

SITERAT ION COUNTER + 

sOEFAALT Me at ExECUTED 

IF YES, EXIT TEST 

sIF NO, TEST ITERATION 


4. 
+ 117400 ;R/W MASKS FOR S CHA. CNT 


es ee ee ee ee 


SEQ 0106 





HARDWARE TESTS MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 55 
‘TEST 4 -- AM 9513 SUBREGISTER TESTS 


4695 031254 004737 015006 
000420 


os 
4900 031272 
4901 031276 015701 6 
4902 031302 021470 


000002 
4942 031512 016102 000002 


0024 34 
002442 


-SBTTL TEST 4 -- AM 95135 SUBREGISTER TESTS 
| PSORAEAHERESOREEDEEESESEEOREEEOERESEEOEEEEEEESESEEOEEOEEOOSEOSEEEEEOEES 
: TEST 4 -- AM 9513 SUBREGISTER TESTS 


; FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


-OSABLE LSB 
BGNTST 
CALL SELECT sCALL SELECT ROUTINE 
.WORD 420 sTEST SELECT MASK 
TSHD4 8 MEADER ADDRESS 
Bcc 1$ sIF CARRY IS SET, DON’T BRANCH 
ExIT TST sEXIT TEST IF CARRY IS SET 
18: CLR ITRCNT sCLEAR ITERATION COUNTER 
MOV MOO .R1 sGET FIRST REGISTER ADDRESS 
JSR PC ,AMREST sRESET THE MODULE 
ITRAC4: MOV MOD. R1 sGET FIRST REGISTER ADDRESS 
CLR NXMFLG sTO DETECT IF A TRAP OCCURRED 
: 
s TEST LOADING CONTROL € STATUS REGISTER AND READING RESULTS 
i 
MOV #2 .BITMSK sBIT MASK 
MOV 1. NUMBER s COUNTER 
108: OBGNSEG sBEGINMING OF LOOP ON ERROR SEGMENT 
MOV @8 RO SLOAD MASK FOR MODE REGISTER AND 
ADO NUMBER , RO j CHANNEL NR 
mov RO ,MREACR1 ) sSELECT MODE REGISTER 
MOV 618 TOG ,MREBCR1 ) sSET TO TOGGLE MODE 
MOV @COCTN,RO + TOUT COMMAND 
ADO NUMBER . RO NUMBER 
Mov RO, MREACR1 ) sLOAD INTO MREA (CSR) 
mov MREACR1),.R2 sGET RESULT 
BIT BITMSK .R2 sTEST THAT OUTX BIT IS CLEARED 
Ae INSERT — IF ERROR MESSAGE IS REQUIRED 
8 
ERRHRD 401, .ERR104 sERROR HANDLER 
CKLOOP sIF LOOP ON ERROR 
208: ENDSEG 8 SEGMENT 
OGNSEG sBEGINAING OF LOOP ON ERROR SEGMENT 
MOV OCéSTN,RO sSET TOUT COMMAND 
ADO NUMBER ,RO sBIT MUPBER (1-5) 
MOV RO, MREACR1 ) sLOAD INTO MREA 
mov MREACR1) .R2 sGET RESULT 
6IT BITMSK ,R2 sTEST THAT OUTX BIT IS SET 
CALL INSERT sTEST IF ERROR MESSAGE IS REQUIRED 
ONE 30s 10K 
ERRHRD 402, ,ERR105 sERROR HANDLER 
CKLOOP sIF LOOP ON ERROR 
308: ENDSEG sEND SEGMENT 
: 
BGNSEG sBEGINNING OF LOOP ON ERROR SEGMENT 
MOV OC SCTN,RO ’ COMMAND 
ADO NUMBER , RO sBIT NUMBER (1-5) 
MOV RO ,MREACR1 ) sLOAD 
MOV MREACR1),R2 sGET RESULT 


SEQ 0107 | 
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4943 031516 


4996 031774 
4999 032000 


MACRO VOS 


033702 
004737 
001405 


002434 
015240 


002434 


177410 
000001 


177420 
00000 


Wednesday 
aM 9515 SUBREGISTER TESTS 


002450 


002450 


03-Oct-84 14:03 
BIT 
CALL 
BEQ 


ERRHRD 
CKLOOP 
ENDSEG 


; 
s LOAD AND READ 
’ 


90%: 


egey be 38s 


E9 


Page 55-1 
BITMSK ,R2 
INSERT 


40% 
403, ,ERR104 


LOAD REGISTERS 

= 10, ELEMNT 
1,GROUP 

* » COUNTR 


HOLD REGISTERS 
or ELEMNT 
¢2 ;COUNTR 


R3,COUNTR 


SEQ 0108 


sTEST THAT OUT BIT IS CLEARED AGAIN 
_ IF ERROR MESSAGE IS REQUIRED 
i 

sERROR HANDLER 

sIF LOOP ON ERROR 

sEND SEGMENT 


sSHIFT MASK BIT 
sGET NEXT CHA. NUMBER 
sALL CHA. DONE ? 
sNO, THEN BRANCH 


sGET LOAD REGISTER MASK 
sGET CHA. NUMBER 
sINITIAL VALUE TO LOAD 


sIS IT THE SAME VALUE? 
—_ IF ERROR MESSAGE IS REQUIRED 
$ 


sERROR HANDLER 

sIF LOOP ON ERROR 

sSKIP BRANCH IF “SFI” IS SET 
STAKE NEXT CHANNEL 


sBUMP COUNTER 
sGO UNTIL OVERFLOW 
BUMP CHA.NUMBER 


sHIGH LIMIT 
3GO FOR NEXT CHANNEL 


sGET HOLD REGISTER MASK 
sGET NUMBER 
sINITIAL VALUE TO LOAD 


sBUILD ADORESS 
sAD0 NUMBER 
eee eT ADORESS 
sLOAD VALUE 

ee -; om 


GE 
11S IT THe SAME VALUE? 





ne ee - e ee 
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" Wednesda 
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5000 032004 004737 015240 
$001 032010 001410 


5007 032024 004737 015240 
000404 


5027 
5028 032120 045 123 
S029 


F9 
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CALL 
BEQ 


3 
3 ERROR DETECTED 
; 


100$: 
1108: 


ExS4: 


TSHD4::. 


ERRHRO 
CKLOOP 
CALL 
BR 


INSERT sTEST IF ERROR MESSAGE IS REQUIRED 
100$ 30K 
405, ,ERR107 sERROR HANDLER 
sIF LOOP ON ERROR 
INSERT sSKIP BRANCH IF “SFI” IS SET 
1108 sLEAVE TEST 
#201 , COUNTR sBUPP COUNTER 
3GO UNTIL OVERFLOW 
GROUP sBUMP GROUP NUMBER 
GROUP , 65 sHIGH LIMIT 
80% 3GO FOR NEXT GROUP 
lt + Aa VERIFY PASS SELECTED 
3 
ITRCNT sBUMP ITERATION COUNT 
ITRDEF , ITRCNT sDEFAULT ITERATION COUNT 
Exs4 sTIME TO EXIT 
ITRAC4 300 THE TEST AGAIN 
eS sRESET TRAP VECTOR 
TST 
BEX 
gammy 9513 SUBREGISTER TEST sN/ 
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005077 


012777 


013777 
013777 
012777 
012702 


015006 


177740 


150010 
150004 


002476 
002476 


147706 
147674 
147670 
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-SBTTL TEST 5 


TS 


-- INTERRUPT TEST 
‘eel ) Wo ee omnes 


-- INTERRUPT TEST 


FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


J SSSHANSSSSSSSSNSSASSSHHSHSSHSSSAHHSHSSEHSHHSSSHSOSSHSSHSSSSHSSSESESAESEEEE 


} 
| 
sCALL SELECT ROUTINE 
sTEST SELECT MASK 


sCLEAR ITERATION COUNTER 


sRESET THE MODULE 
sSETUP INTERRUPT SERVICE ROUTINE 
sCATCH SUPERVISOR BUG 


Beee 

sSETUP TO CATCH TRAPS 

3 SAVE CURRENT OR 

3s AND DROP 
T INT 


s INI ERRUP AG 
:T0 DETECT IF A TRAP OCCURRED 
sZERO COUNT 


sMASK FOR ‘EN’ BITS 
sMASK FOR ‘IR’ BITS 
sMASK FOR CHANNEL NUMBER 


sBEGINNING OF LOOP ON ERROR SEGMENT 
sOISABLE ENABLE BITS 


sSELECT MODE REGISTER AND CHANNEL 
TOGGLE MODE 
sGET CLEAR TOUT COMMAND 


3 NUMBER 
sOUTPUT TO DEFINATE STATE (CLEAR TOUT) 
1GET SET TOUT COMMAND 
sAD0 CHANNEL 
iSET TOUT (COURS IR SET) 

T INTERRUPT yg ee 


IR BITS SHOULD BE CLE 
sTEST IF ERROR MESSAGE IS REQUIRED 


30K 
1SET UP FOR — MESSAGES 
sERROR HANDLER 


SEND SEGMENT 

sSET ENABLE BIT 

sSELECT MODE REGISTER AND CHANNEL 
sSET TO TOGGLE MODE 


BGNTST 
CALL SELECT 
-WORD 420 
TSHOS 
BCC 1$ 
EXIT TST 
1%; CLR ITRCNT 
PC ,AMREST 
SETVEC VEC, @INTSR, @PRIO7 
Cc #400 
SETVEC VEC, @INTSR, OFRIO7 
SETVEC #4, @BADIV, OPRIO7 
GETPRI SAVPRI 
SETPRI 
ITRACS: CLR INTFLA 
CLR NXMFLG 
CLR SIV 
; 
; TEST ‘IR’ BITS WITHOUT MASTER ENABLE SET 
; 
MOV #400, BITMSX 
MOV #1,GO00D 
MOV #1, NUMBER 
10%: BGNSEG 
CLR SINR 
MOV ’ 
MOV @M$T0G,8CCR 
MOV @CsCTN,R2 
ADD : 
MOV .@CSR 
MOV @C#STN,R2 
ADO ‘ 
MOV R2,8CSR 
MOV : 
CMP #60340 ,BAD 
CALL T 
BEQ 20% 
MOV #60340 ,R2 
501, ,ERRSO1 
20%: ENDSEG 
BGNSEG 
MOV SITMSK ,BINR 
MOV NUMBER, 
MOV @MsTOG,@CCR 
MOV @CséCTN,R2 


sGET CLEAP TOUT COMMAND 





a ee ee 
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TEST S -- INTERRUPT TEST 


5092 032536 065702 ADO NUMBER ,R2 sADD CHANNEL NU*SER 
5093 032542 010277 147652 MOV R2,8CSR SOUTPUT TO DEFINATE STATE (CLEAR TOUT) 
5094 032546 012702 177750 MOV OCSSTN,R2 sGET SET TOUT COMMAND 
5095 032552 0635702 ADO : sADD CHANNEL NUMBER 
5096 032556 010277 147636 MOV R2,8CSR 1SET TOUT (COUSE IR SET) 
| 5097 032562 012777 000037 147634 MOV 037,GINR sCLEAR EN BIT ONLY (LEAVE IR BITS) 
5096 032570 017737 147630 002476 MOV +BAD sGET INTERRUPT REGISTER CONTENTS 
| 5099 032576 013702 002474 MoV Re iSET UP FOR ERROR MESSAGES 
5100 032602 052702 060340 BIS #60340 ,R2 sSET UNUSED BITS 
5101 032606 020237 002476 CMP ° SIR BITS SHOULD BE SET 
5102 032612 004737 015240 CALL INSERT sTEST IF ERROR MESSAGE IS REQUIRED 
5103 032616 001404 BEQ 30% 30K 
5104 032620 502, ,ERRSO1 sERROR HANDLER 
5105 032630 30s ENDSEG 
$107 032632 BGNSEG 
5108 032634 043777 002474 147562 BIC GOOD , SINR sCLEAR IR BIT 
5109 032642 017737 147556 002476 MOV @INR BAD sGET INR CONT! 
5110 032650 022737 060340 002476 ad #60340 ,BA0 sIR BIT SOULD BE CLEARED 
5111 032656 004737 015240 CALL INSERT sTEST IF ERROR MESSAGE JS REQUIRED 
S112 032662 1 BEQ 40% 30K 
032664 012702 060340 MOV #60340 Re sSET UP FOR ERRO MESSAGES 
$5114 032670 503, ,ERRSO2 sERROR HANDLER 
$115 032700 40% ENDSEG 
5117 032702 006337 002434 ASL BITMSK sSHIFT EN’ MASK BIT 
$118 032706 006337 002474 ASL GOOD sSHIFT ‘IR’ MASK BIT 
$119 032712 005237 002442 INC NUMBER s INCREMENT CHA. BIT NUMBER 
5120 032716 023727 002442 000005 #5 yALL 5 — DONE ? 
5121 032724 BGT 50% sBRANCH IF 
a38 032726 000137 0323574 Jp 10% sYES 
; 
3124 s NO INTERRUPTS SHOULD HAVE BEEN GENERATED UP TO THIS POINT 
i 
5126 032732 005737 002510 50$: TST INTFLA sTEST INTERRUPT COUNT 
5127 032736 004737 015240 CALL T sTEST IF ERROR MESSAGE IS REQUIRED 
5128 032742 001404 BEQ 60% 30K 
aH 032744 ERRHRD 504, ,ERRSOS sERROR HANDLER 
; 
ast s TEST THAT INTERRUPTS CAN BE GENERATED 
; 


60%: 
#117400, INR 


#1,GO000 
#1 ,NUMBER 


5147 
5148 033034 


s@@eSET MASTER ENABLE AND INT ENBeess 
sVERY SHORT WAIT 


3sNO INTERRUPT SHOULD APEARE 

i TEST IF ERROR MESSAGE IS REQUIRED 
’ 

sERROR HANDLER 

sMASK FOR ‘EN’ BITS 

sMASK FOR ‘IR’ BITS 

sMASK FOR CHANNEL 

sBEGINNING OF LOOP ON ERROR SEGMENT 





SE@ 0111 





STs 


| HARDWARE TE 
TEST S -- INTERRUPT TEST 


| 
| 
| 
| 


S 

ate 033316 
5194 033326 
5195 

5196 033330 
5197 033336 
5196 033344 
5199 033352 


5202 

5203 033370 
5204 033374 
5205 033400 
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012701 000340 MOV @PRIO7,R1 
SETPRI @PRIO7 
005037 002472 CLR BIV 
005037 002510 CL INTFLA 
052777 100000 147336 BIS #100000 , BINR 
013777 002442 147324 MOV NUMBER , 8C 
012777 000042 147320 MOV @n¢TOG,@CCR 
012 177740 MOV @CsCTN,R2 
702 ADO : 
010277 147302 MOV -@CSR 
0 177750 yg @CSSTN,R2 
010277 147266 MOV R2,aCSR 
023727 002510 000001 110%: CMP INTFLA, @1 
004737 015240 CALL INSERT 
001431 90% 
737 002472 TST BIV 
001021 100% 
162701 000040 #40,R1 
SETPRI Ri 
020127 000100 chp R1, @PRIO? 
004737 015240 CALL T 
001356 BNE 110% 
ERRHRD oe 
CKLOOP 
008737 015240 CALL —" 
100$: ERRHRD 507, .,ERRSOS 
CKLOOP 
062701 000040 90%: 
020137 002430 R1,PRIO 
004737 015240 CALL 
001430 BEQ 120% 
-REPT 5 
ASR Ri 
-ENDR 
010137 002476 MOV R1,BAD 
013737 002430 002474 MOV PRIO,GOOD 
000005 -REPT 5 
ASR GOOD 
-ENDR 
ERRHRD 506, ,ERRSO6 
120%: ENDSEG 
017737 147070 002476 MOV SINR .BAD 
012737 100000 002474 MOV #100000 , GOOD 
033737 002474 002476 BIT GOOO , BAD 
004737 015240 CALL INSERT 
001404 BEQ 122% 
ERRHRD 509, ,ERRSO7 
006337 002434 122¢: ASL BITMSK 
005237 002442 INC R 
023727 002442 000005 NUMBER , #5 


SEQ 0112 | 
| 


sLOAD Ri WITH PRIORITY NUMBER 
sOISABLE INTERRUPTS AT THIS POINT 


sCLEAR INTERRUPT FLAG 

sSET MASTER ENABLE IN INR 

sSELECT MODE REGISTER AND CHANNEL 
sSET TO TOGGLE MODE 

sGET CLEAR TOUT COMMAND 


s NUMBER 
sOUTPUT TO DEFINATE STATE (CLEAR TOUT) 
1GET SET TOUT COMMAND 


sADO CHANNEL NUMBER 
iSET TOUT (GENERATE INTERRUPT ) 


sO0ID INTERRUPT OCCUR 
sTEST IF ERROR MESSAGE IS REQUIRED 


OK 

:D1D AN_ INTERRUPT OCCUR? 
sYES, AT ANOTHER ADDRESS 
OECREMENT PRIOR 


sTEST IF ERROR MESSAGE IS REQUIRED 
sJOIN COMMON CODE 
sERROR HANDLER 


3 

sCORRECT PRI FOR CMP 

sPRIORITY CORRECT ? 

sTEST IF ERROR MESSAGE IS REQUIRED 


sBRANCH IF YES 
sSET UP DATA FOR ERROR MESSAGES 
Beee 


Bees 

sSET UP DATA FOR ERROR REPORT 
Beee 

H 

; 


i 
sERROR HANDLER 


sGET INR REGISTER CONTENS 
sSET UP FOR ERROR HANDLER 

sIS MASTER ENABLE CLEARED ? 

TEST IF ERROR MESSAGE IS REQUIRED 
sBRANCH IF YES 

sERROR 

sSHIFT ‘EN’ MASK B 


s INCREMENT ———. *RIT NUMBER 
sALL CHANNELS DONE ? 
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5206 033406 
5207 033410 
S208 


S226 
$227 033524 


MACRO VOS 


045 


INTERRUPT esi 


033034 
002164 


123 
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Exss: 


BGT 
JMP 


BEX 
 aeepaiaat TEST N/ 


SEQ 0113 


sIF YES TERMINATE TEST 
sNO 


4 QUICK VERIFY PASS SELECTED 


YES 

sBUMP ITERATION COUNT 
sDEFAULT ITERATION COUNT 
sTIME TO EXIT 

300 THE TEST AGAIN 


sDISABLE INTERRUPTS 

s RESTORE THE PRIORITY 
sRESET TRAP VECTOR 
sDEVICE INTERRUPT ADDRESS 
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| Test S -- 


INTERRUPT TEST 


) 
seq 0114 
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-SBTTL TEST 6 -- REFERENCE FREQUENCY TEST 
j COPRERERESSRERESEEERERESESSERESESRERESESESESESEESESESEEEEEESESEOSESESES 


3 TEST 6 -- REFERENCE FREQUENCY TEST 
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


PESSSSEARASHKHAEKASSHKHARAHESKELSE SEGRE AHAREOAAEHASEEHSERHEHESEEHAAGAE KER EE 


5269 033662 
5270 033664 
5271 033666 
S272 033670 
5273 
5274 
5275 
5276 033676 


S277 033702 
5278 033710 


$2864 033742 
5285 


004737 
0004 


20 
034076 
103002 


005037 


013701 
004737 


012737 


015006 


177537 
177477 


177637 


“DSABLE LSB 
BGNTST 
CALL SELECT :CALL SELECT ROUTINE 
“WORD 420 ITEST SELECT MASK 
TSHO6 ITEST HEADER ADDRESS 
acc P HIF CARRY IS SET, DON’T BRANCH 
EXIT TST SEXIT TEST IF CARRY IS SET 
1s: CLR —sI'TRENT ‘CLEAR ITERATION COUNTER 
MOD. RI ,GET FIRST REGISTER ADDRESS 
JSR «PC, AMREST ‘RESET THE MODULE 
ITRAC6: 
#1, NUMBER :CHANNEL NUMBER 
:SET UP ALL COUNTERS FOR S MHZ AND LOAD VALUE 10000 
10$: MOV —s- #8, RO ;SELECT MODE REGISTER 
ADD —- NUPBER, RO SADD IN CHANNEL NR 
MOV -—sRO MREACR1) ISELECT MODE REGISTER 
MOV 0005440, HREB(R1) i SELE 
HOV «B10, RO }SELECT LOAD REGISTER 
ADO SRO ‘SELECT CHANNEL 
MOV —sRO,, MREACR1) SADORESS 
MOV —«-@10000. .HREBCR1) SLOAD VALUE 
INC NUMBER SBUMP CHANNEL NUMBER 
CHP 40s NUMBER, @5 VALL CHANNELS? 
BLE —«-108 ‘MORE TO DO 
+ LOAD AND ARM ALL COUNTERS 
; MOV —s- @CSLOA!37, MREACR1) :START ALL COUNTER 
HOV AC HARM 7, PREACRL) SSTART ALL COUNTER 
Noe ;LET COUNTERS RUN 
HOV —«-@C$DAS 37, MREACR1) :SAVE COUNTERS 


; READ OUT COUNTERS AND SAVE IN CNTVAL TABLE 


MOV @CNTVAL ,R4 sSAVE VALUES HERE 
MOV #1,NUMBER :f A. NUMBER 

208: MOV #6!20,RO0 * 'T HOLD REGISTER 
ADD : (ANNEL NUMBER 
MOV RO, MREACR1) ELECT COUNTER 
MOV MRFBCR1),(CR4)+ sGET COUNTER VALUE 
INC NUMBER sBUMP L NUMBER 
CMP NUMBER , #5 sALL CHANNELS? 
BLE 20% sMORE TO DO 
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$323 
5324 034076 045 
325 


a a ee _— = , 


L9 


SE@ 0115 
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FREQUENCY TEST 
3 COMPUTE MIN AND MAX VALUES OF ALL COUNTERS 
: 
002452 MOV @CNTVAL ,R2 i 
MOV @5,R3 sLOAD LOOP COUNT 
023420 MOV #10000. ,RO 3MIN 
CLR RS 3MAX 
308: CMP RO, CR2) sLOAD NEW MINIMUM? 
BLE 40% sNO 
MOV CR2),RO sLOAD NEW MINIMUM 
408: CMP R4,CR2) sNEW MAXIMUM? 
BGT 50$ sNO 
MOV CR2),R4 sNEW MAXIMUM 
50%: TST CR2)+ sBUMP POINTER 
DEC Bs PF 
BNE 30% sLOOP TO FIND MAX € MIN 
: 
; SEE IF THE COUNTER VALUES WERE IN EXPECTED RANGE 
: 
023420 CMP R4, #10000. s0ID COUNTER MOVE? 
BGE 70% sSTRANGE VALUES 
TST RO ;ROUGH TEST 
BLE 70% 3 
MOV R4 ,R2 sGET OIFFERENCE (MAX-MIN) 
su8 RO,R2 
CMP R2,#2 sALLOWABLE DIFFERENCE 
015240 CALL INSERT sSKIP BRANCH IF “SFI” IS SE 
BLE 70% sBRANCH IF YES (LESS THEN 5) 
601, ,ERR130 
002164 70%: TST sIS QUICK VERIFY PASS SELECTED 
BNE EXxS6 sYES 
002504 INC ITRCNT iBUMP ITERATION COUNT 
002506 002504 CMP ITRDEF , ITRCNT sDEFAULT ITERATION COUNT 
BEQ ExS6 sTIME TO EXIT 
033560 JP ITRAC6 300 THE TEST AGAIN 
ExS6: EXIT TST 
-NLIST BEX 
123 062 TSHD6:: .ASCIZ — FREQUENCY TEST #N/ 
EVEN 





| HARDWARE TESTS 


| TEST 7 «- 


5369 034306 
5370 034310 
1 034312 


5381 364 
53862 034370 


5387 034414 


MACRO V 


005037 


015006 


COUNTE 


vOS ..00 
SIGNAL GENERATION ON 


002442 
002434 


002436 


002436 


M9 
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R INPUT 


-SBTTL TEST 7 -- 


SIGHAL GENERATION ON COUNTER INPUT 


I SSHASSSSSHHSSSSSSHLSSSSAASSSSHHSSHSHSSSESSOHSSSSHEHSEASEHHSESEESHESEEEEEEED 


: TEST 7 -- SIGNAL GENERATION ON COUNTER INPUT 
F 
F FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 
Wriiiiitiiiiitiiitiiiiiiiiiiiitiiiiiiiiiiiitiitit tii titi ttt ttt 
-OSABLE LSB 
BGNTST 
CALL SELECT sCALL SELECT ROUTINE 
-WORD 420 sTEST SELECT MASK 
TSHO7 sTEST HEADER os 
BCC 1$ sIF CARRY IS SET. DON’T BRANCH 
EXIT TST SEXIT TEST IF EAARY Is eee 
1%: CLR ITRCNT sCLEAR ITERATION COUNTER 
MOV MOO ,R1 sGET FIRST REGISTER ADDRESS 
JSR PC, AMREST sRESET THE MODULE 
ITRAC7: 
MOV ° sCHANNEL NUMBER 
MOV #1 ,.BITMSK 
108: MOV eRO sSELECT MODE REGISTER 
ADD 2RO sADO IN CHANNEL NR 
MOV RO, MREACR1) sSELECT MODE REGISTER 
MOV »MREBCR1) sSELECT INTERNAL LOOP 
MOV #6!10,RO0 }SELECT LOAD REGISTER 
ADO eRO 3SELECT CHANNEL 
MOV RO ,.MREACR1) sADORESS 
CLR CR1) sINIT COUNTER 
MOV $L0A,RO sLOAD 
ADO BITMSK ,RO sADD IN CHANNEL NR 
MOV RO ,MREACR1) ISTARTS COUNTER 
BGNSEG sBEGINNING OF LOOP ON ERROR SEGMENT 
MOV BITMSK ,.BITMS1 sBUILD SECOND BIT MASK 
ASR BITMS1 
MOV NUMBER ,R2 sCOMPUTE TCN-1 
DEC R2 
BNE 20% 
MOV #5,R2 sWRAP AROUND 
MOV 46!20,B6ITMS1 sBIT MASK 
20%: MOV #6 ,RO sSELECT MODE as See 
ADO 2RO ADD CHANNEL NR 
MOV RO, MREACR1) }SELECT MODE REGISTER 
MOV »MREBCR1) sSELECT SMHZ FREQUENCY 
MOV #8!10,RO0 3LOAD AND ARM TAK COUNTER 
ADO R2,RO 3 NUMBER 
MOV RO, MREACR1) $ 
MOV #3 ,MREBCR1) ;SETUP COUNTER 
MOV @C$L0A,RO 
ADO BITMS1,RO 
MOV RO,MREACR1) sSTART COUNTER 
MOV $ARM, 
ADD BITMS1,RO 
ADD BITMSK ,RO :ADD IN CHANNEL NR 
MOV RO, MREACR1) sSTART COUNTER 


SEQ 0116 
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000240 


045 


123 


Wednesda 


11%: 


N9 
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@C$DAC ,RO 


RO,MREACR1) 
#6 !20,RO 
NUMBER , RO 
RO, MREACR1) 
MREBCRL), R3 
INSERT 


11% 

701, ,ERR115 
BITMSK 
NUMBER 


10% 


SEQ 0117 


;LET COUNTER GO 


sDISARM COUNTER 
:CHANNEL NUMBER 


sDISARM COUNTER 
Fy L NUMBER 
sHOLD REGISTER 
sCOUNTER -> HOLD REGISTER 


sTEST IF ERROR MESSAGE IS REQUIRED 
sDID CLOCK TICK 


sERROR HANDLER 

3sIF LOOP ON ERROR 
sEND SEGMENT 
sSHIFT TO NEXT BIT 


8 QUICK VERIFY PASS SELECTED 


‘BUMP ITERATION COUNT 
sDEFAULT ITERATION COUNT 
sTIME TO EXIT 

300 THE TEST AGAIN 


BEX 
a GENERATION ON COUNTER INPUT #N/ 
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f 
i 


ad 


B10 


SEQ 0118 
TS MACRO VOS.00 Wednesday 05-Oct-84 14:03 Page 59 
TERNAL LOOPBACK, NOT ISOLATED 
.SBTTL TEST 6 -- EXTERNAL LOOPBACK, NOT ISOLATED 
t SHHSRHSSLRSPSESHSHASHSHALA SHO BASSES SEKEHOHARHASESHOEASTOSASHH PE BHKADERSHRAEKRE RE SASHRE 
, TEST 6 -- EXTERNAL LOOPBACK, NOT ISOLATED 
i 
, FOR TEST DESCRIPTION SEE 6.0 TES) s°@<HIES 
3 SHESHOKSRERHSSSHHSDSTHUSEHRGEHASEHDACHHSSEALACEASEASMDRAAAAECSASHOARAREHOSKRESHERZE 
.OSABLE LSB 
@GNTST 
004737 015006 CAL SELECT sCALL SELECT ROUTINE 
000420 .WORD 420 sTEST SELECT MASK 
035270 TSHDS sTEST HEADER ADORESS 
103002 ecc 18 sIF CARRY IS SET, DON’T BRANCH 
EXIT TST sEXIT TEST IF CARRY IS SET 
005037 002504 18: CLR ITRCNT sCLEAR ITERATION COUNTER 
013701 002416 MOV MOD, R1 :GET FIRST REGISTER ADORESS 
021470 JSR PC, ARREST sRESET THE MODULE 
012761 177427 000002 MOV 60127 ,MREACR1) sSELECT FREQ OUTPUT CNTAL REG 
012761 061000 000004 - MOV 061000 , MREB(R1) sSELECT SPH LOOPBACK FREQUENCY 
$ 
012737 000001 mov 1CHANMEL NUMBER 
012737 000001 0024634 MOY 01, OI THSK 
012737 000400 002464 108: MOV SRC sINIT 
012737 000012 002466 HOW #10. ,LOOP sSETUP LOOP 
208: OGNSEG : OF LOOP ON ERROR SEGMENT 
012700 177400 MOV 68 RO sSELECT MODE REGIS 
063700 002442 ADO .RO sADO IN 
010061 000002 MOV RO ,MREACR1) sSELECT MODE REGISTER 
000010 Mov 010,R0 sCOUNT UP 
002464 ADO SRC .RO sSOURCE OR GATE 
010061 000004 MOV RO. MREBCR1> sSELECT 
12700 177410 KOV €8!10,R0 sSELECT LOAD REGISTER 
ADO NUMBER ,RO 3 SELECT 
010061 HOW RO ,MREACR1) 
005061 CLR PREBCR sINIT COUNTER 
012700 1 nOV @CSLOA, sLOAD 
063700 % ADO OITHSK.RO sADD IN CHAOEL NR 
010061 MOV RO. MREACR1) sSTARTS COUNTER 
177440 MOV OC $ARM,.RO ARM 
002434 ADO BITHSK.RO sADO IN CHANEL NR 
010061 MOV RO ,MREACR1) sSTARTS COUNTER 
000240 NOP 
000240 noe sLET COUNTER GO 
000240 NOP 
012700 177600 MOV @CEDAS RO :OISARM COUNTER 
063700 002434 ADO TMSK , RO 1CHANNEL NUMBER 
010061 000002 MOV RO ,MREACR1) 
012700 177420 MOV €8120,R0 sHOLD REGISTER 
700 002442 ADO ,RO 
010061 000002 MOV RO, MREACR1) :COUNTER -> HOLD REGISTER 
016103 000004 MOV MREB(R1),R3 
004737 015240 CALL ;TEST IF ERROR MESSAGE IS REQUIRED 
001026 BNE 50% s0ID CLOCK TICK 
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002464 
177740 
000005 
015240 


123 


C10 
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MOV SRC ,R2 
S88 Re 
BIC @177740,R2 
chp ° 
CALL INSERT 
BGT 308 
ERRHRD 601, ,.ERR116 
BR 408 
308 : SUB @5,R2 
408%: ERRHRD 602, ,ER116A 
CKLOOP 
50%: ENDSEG 
002464 ATM #400, SRC 
DEC LOOP 
BNE 208 
ASL OI TMSK 
INC NUMPER 
000005 Cop NUMBER . 05 
BLE 108 
TST QvP 
BNE Exss 
INC ITRCNT 
002504 sd ITROEF , ITRCNT 
BEO Exss 
JP ITRACS 
ExSsé: EXIT TST 
NLIST x 
062 TSHD6:: .ASCIZ amenities LOOPBACK 


SEQ 0119 


sSOURCE OR GATE 

1GET TO LOW ORDER 

sCLEAR OTHER BITS 

s SOURCE 

sTEST IF ERROR MESSAGE IS REQUIRED 


sNO, GATE 
sERROR HANDLER 


sIF LOOP ON ERROR 
sEND SEGMENT 


sBUNP TO NEXT SOURCE 
sADDJUST LOOP COUNT 
sLOOP FOR NEXT SOURCE 
sSHIFT TO NEXT BIT 


sIS QUICK VERIFY PASS SELECTED 
TERATIOM COUNT 


300 THE TEST AGA 


TEST, NOT ISOLATEDSN/ 
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: 


MACRO VOS.00 


LOOPBACK, 


015006 


177410 


ISOLATE 


002436 
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-SBTTL TEST 9 


EXTERNAL 


LOOPBACK, 


ISOLATED 


PPOSSASNEHEAEHAOHASSABAHSELOSHAMATSHEHSHHSHSSHOESIEESHESHELESOHRAODEHREHAERODE 
TERNAL L AT 


‘ TEST 9 


FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


18: CLR 


ITRACS: 


.AMREST 
08127 WREACRL) 


#70000 , MREB(R1 


@1 NUMBER 
#1 .BITMSK 
400, SRC 


T HEADER ADDRESS 
sIF CARRY IS SET, ae 
SEXIT TEST IF CARRY I 
sCLEAR ITERATION 
sGET FIRST REGISTER ADORESS 
T THE MOOULE 


sSELECT FREQ OUTPUT CNTRL REG 
sSELECT SMH LOOPBACK FREQ. FOUT*OFF 


sCHANNEL NUMBER (FOR INC) 
sCHANNEL NUMBER (FOR SHIFT) 
sINIT SOURCE 


sSETUP FIRST COUTER FOR 100 KHZ GENERATION ON COUNTER OUTPUT. 


108: 


os Ge oe 
ia) 
=< 


sila! gen saees : PEEP ELLE 


20%: 
308: 


BZSR3 3 
3B 


~ 
> 
3 


sGET + ODE REGISTER MASK 
8 IN CHANEL NR 
sSELECT MODE REGISTER 
sLOAD TOGGLE AT 5S MHZ, 
sGET LOAD Te MASK 
sADO IN CHANNEL NR 

SSELECT LOAD REGISTER 
sLOAD COUNT VALUE 


Bees 
sTEST FOR = AROUND (ALL CNT DONE?) 


8 
sSTART OVER WITH FIRST COUNTER 
Beee 


COUNT UP 
sGET LOAD REGISTER MASK 
sADD IN CHA. NUMBER 
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TERNAL LOOPBACK, SOLATE 


E10 
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RO, MREACR1) 
MREBCR1) 
@C $LOA,RO 
BITMS1,RO 
RO, MREACR1) 
@C$L0A,RO 
BITMSK ,RO 
RO, MREACR1) 

TH COUNTER FOR COUNTING 


8 
RO, MREACR1) 
#100. ,RO 


anees S888 8 S82 S808 


8 

RO, MREACR1) 
sCHECK SECOND COUNTER CONTENTS 
#68 !20,RO0 


RO, MREACR1) 
MREB(R1) RS 
INSERT 

60% 

SRC RS 

R 


BIC #177740,R3 
R3,05 


508 

901, ,ER1168 
608 

#5 ,R3 

902, ,ER116C 


gees, SRC 
308 
BITMSK 
NUMBER 


7 
SEQ 0121 


3 ADO CHANNEL NR 

sREADY TO START SECOND COUNTER 
sGET LOAD MASK 

sADO IN CHANNEL NR 

sREADY TO START FIRST COUNTER 


sGET ARM COMMAND 
sADO IN COUNTER NR 


sADO IN SECOND COUNTER NR 
sSTART BOTH COUNTER (LOAD ARM) 
sLET COUNTER RUN AT 100 KZ 
sLET COUNTER GO 

sSHORT LOOP COUNT 


3GET DISARM COMMAND 
sADD IN COUNTER NR 
sADD IN SECOND COUNTER NUMBER 
3STOP BOTH COUNTER (OISARM) 


sHOLD REGISTER 

sADO0 CNT NUMBER 

sCOUNTER -> HOLD REGISTER 
sGET CONT 

sTEST IF ERROR MESSAGE IS REQUIRED 
sO0ID CLOCK TICK 

sSOURCE OR GATE 

sGET TO LOW ORDER 

sCLEAR OTHER BITS 

s SOURCE 

sNO, GATE 

sERROR HANDLER FOR SORCE 
IF LOOP ON ERROR 

: 


t] 
sERROR HANDLER FOR GATE 
sEND SEGMENT 


sBUMP TO NEXT SOURCE 
sADDJUST LOOP COUNT 
sLOOP FOR NEXT SOURCE 


sSHIFT TO NEXT COUNTER 
sBUMP CHANNEL COUNTER 





F10 
| HARDWARE TESTS MACRO VOS.00 03-Oct-84 14:03 Page 60-2 —w | 
| TEST 9 -- EXTERNAL LOOPBACK, ISOLATE 
5641 036042 023727 002442 000005 CMP NUMBER , 05 sALL COUNTERS DONE ? 

5642 036050 005002 BGT 70$ sEXIT IF YES 

5643 036052 000137 035436 JP 108 sMORE TO 00 

5645 036056 005737 002164 708: in ave sIS QUICK VERIFY PASS SELECTED 
3 

5647 036064 005237 002504 INC ITRCNT sBUMP ITERATION COUNT 

5648 036070 0235737 002506 002504 CMP ITROEF , ITRCNT sDEFAULT ITERATION COUNT 

5649 036076 001402 BEQ Exs9 sTIME TO EXIT 

5650 036100 000137 035414 Jp ITRAC9 s00 THE TEST AGAIN 

56S2 036104 ExS9: EXIT TST 

S654 -NLIST 6EX 

S655 036110 045 123 062 TSHD9::.ASCIZ /sS2SAEXTERNAL LOOPBACK TEST, ISOLATED. #N/ 

5656 -LIST BEX 

5657 

5658 

5659 036160 ENDTST 
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5666 

5667 036162 
5668 036162 
5669 036166 
5670 036170 
5671 036172 
5672 036174 


MACRO VOS Wednesde 
UP/DOWN COUNTING APPLICATION TEST 


-S8TTL TEST 10 -- 


077316 


012761 
012761 
016105 
020527 


094737 
001404 


015006 


000002 
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UP/DOWN COUNTING APPLICATION TEST 


J SHHSHASSSSHSSSHSHHSHASSHSHSSHHSHSHOHHSSHSOSSSHHSSESHEESEHOEESSEESSEHESEEEEEE 


ITR1O: 


108: 


TEST 10 -- 


COUNTING APPLICATION TEST 


FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 


§ SHHSSSASSSHSHSSKS SSHHSSHASSSSHSSSSSESHHHSSHSSHESSHSHEHSSSSSESHEHHEEHEEEEEE 


BGNTST 

CALL SELECT 

-WORD 420 

TSHD10 

Bcc uf 

EXIT TST 

MOV #4, ITRCNT 

CLR WORFLA 

MOV MOD ,R1 

JSR PC ,AMREST 

MOV #6 !27 ,MREACR1) 
MOV 4 ° R1) 
MOV 06:3, MREACR1) 
MOV 42 ,MREB(R1) 
MOV 06:4, ,MREACR1) 
MOV 042 ,MREB(R1) 
MOV #6 !1 ,MREACR1) 
MOV #42450 , MREB(R1) 
JSR RS, SETMRA 

-WORD 344 

JSR RS, SETMRA 

-WORD 343 

MOV $6 !11 ,MREACR1) 
CLR MREBC(R1) 

MOV 6 !2,MREACRI) 
MOV SO, MREBCR1) 
MOV 6:12, CR1) 
CLR 

MOV #10000. .R3 

MOV @CSLOA!3 ,MREACR1) 
MOV OC OARM!3 .MREACR1) 
JSR RS, SETMRA 

.WORD 354 

JSR RS, SETMRA 

. WORD 

JSR RS, SETMRA 

-WORD 344 

JSR RS, SETMRA 

-WORD 343 

BREAK 

S08 R3,108 

MOV @C#DAS!3,MREACR1) 
MOV #6 !21 ,MREACR1) 
MOV MREBCR1).RS 
CMP R5, #10000. 

CALL INSERT 

BEQ 


20% 
ERRHRD 1001, ,ERR120 


sCALL SELECT ROUTINE 
MASK 


ADORESS 
sIF CARRY IS SET, DON’T BRANCH 
sEXIT TEST IF CARRY IS SET 
sITERATION COUNTER 
sCLEAR WORKING FLAG 
sGET FIRST REGISTER ADDRESS 
sRESET THE MODULE 
ro FREQ OUTPUT CNTRL REG 
1SELECT MODE REGISTER 
sOUT T 


1SELECT ~~ REGISTER 


s;0UT T 

sSELECT MODE REG 

sACTIVE HIGH LEVEL, GATE 2, SRC 5 
4° hey MREA 

3 7 


SELECT 1 LOAD REGISTER 
sINIT COUNTER 


SSELECT MODE REG 

sACTIVE LOW, GATE 2, SRC 5 
sSELECT 2 LOAD REGISTER 
INIT COUNTER 


sSET & TEST MREA 
sCLEAR TOUT N = 3 


sL00P 
sO0ISARM AND SAVE COUNTERS 
sCOUNTER -> HOLD REGISTER @1 


sTEST IF ERROR MESSAGE IS REQUIRED 
sIF EXPECTED ira OF COUNTS 
sERROR HANOLER 


SEQ 0123 
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S718 036474 
$719 036502 
S720 036506 
$721 036510 
S722 036514 
S723 036516 


$771 037002 
$772 037010 
5773 037012 
$774 


MACRO 

012761 
016105 
005705 
004737 
001404 


H10 
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STS vOS .00 
UP/DOWN COUNTING APPLICATION TEST 


177422 000002 20%: MOV 08 !22 ,MREACR1) 
000004 ~~ MREBCR1),RS 
015240 CALL INSERT 
BEQ 30% 
ERRHRD 1002, ,ERR121 
’ 
s NOW DO THE SAME TEST WITH OTHER PHASE 
; 
177411 900002 30%: MOV €6!11 ,MREACR1) 
000004 CLR 1 
177412 000002 MOV mE pay Ri) 
000004 CLR MREBC(R1) 
023420 MOV #10000, oe “. 
037022 JSR RS, SETMR 
-WORD 344 
037022 JSR RS, SETMRA 
-WORD 343 
177503 000002 MOV @C$LOA!3,MREACR1) 
177443 000002 MOV @C $ARM!3, MREACR1 ) 
037022 408: JSR RS, SETMRA 
-WORD 353 
037022 JSR RS, SETMRA 
-WORD 354 
037022 JSR RS. SETMRA 
-WORD 343 
037022 JSR RS, SETMRA 
. WORD 
S08 R3,40% 
177603 000002 MOV @C$DAS!3,MREACR1) 
177421 000002 MOV 06 $21 ,MREACR1) 
000004 MOV MREBCR1).RS 
TST RS 
015240 CALL INSERT 
BEQ 50% 
ane ERRHRD 1005, ,ERR122 
177422 000002 MOV €6 !22 ,MREACR1) 
MOV MREBCR1).RS 
023420 chp : 
015240 CALL 
BEQ 60% 
ERRHRD 1004, ,ERR123 
002164 608: ist ave 
BNE ExS10 
BREAK 
000000G TST WORFLA 
BNE 120% 
PRINTF @WOR 
0000006 INC WORFLA 
002504 120%: INC ITRCNT 
002506 CMP ITROEF , ITRCNT 
BEQ ExS10 
036222 Jp ITR10 


me ee ee ee ee 


sSELECT HOLD REGISTER 02 


sOTHER SHOULD HAVE NOT COUNTED 
sTEST IF ERROR MESSAGE IS REQUIRED 
sIF EXPECTED NUMBER OF COUNTS 
sERROR HANDLER 


sSELECT 1 LOAD REGISTER 
s INI ER 
sSELECT 2 LOAD REGISTER 
INIT COUNTER 


sCLEAR N= 
sSET & TEST MREA 
sCLEARTOUT N = 4 


sDOISARM AND SAVE COUNTERS 
sCOUNTER -> HOLD REGISTER 01 


sOTHER SHOULD HAVE NOT COUNTED 
sTEST IF ERROR MESSAGE IS REQUIRED 
sOID CLOCK TICK 

sERROR 


sCOUNTER -> HOLD REGISTER ¢1 


sTEST IF ERROR MESSAGE IS REQUIRED 
sO0IO CLOCK TICK 
sERROR 


+a oa VERIFY PASS SELECTED 
i 


sIS WORKING PRINTED ONCE ? 
sBRANCH IF YES 
sPRINT TEST IS WORKING 


3 

sBUMP ITERATION COUNT 
sOEFAULT ITERATION COUNT 
sTIME YO EXIT 

300 THE TEST AGAIN 





_ 


sSET HIGH ORDER BYTE 
3SET OuT 

sGET VALUE BACK 

sGET NUMBER 

sWHAT TYPE OF COMMAND 
sGET COMMAND 

3SET? 


sNO 

sIS SOURCE SET? 

sYES, AS IT SHOULD BE 
ERROR 


8 
sOUTPUT CLEARED? 
sYES, AS IT SHOULD BE 
sERROR HANDLER 


BEX 
/8S26AUP\DOWN COUNTING APPLICATION TEST sN/ 


| HARDWARE TESTS MACRO VOS.00 03-Oct-64 14:03 Page 61-2 
TEST 10 -- UP/DOWN COUNTING APPLICATION TEST 
| $775 037016 ExS10: EXIT TST 
$776 
$777 037022 011500 SETMRA: MOV CRS), RO 
S778 037024 177400 BIS ’ 
5779 037030 010061 000002 MOV RO, MREACR1) 
016100 000002 MOV MREACR1),RO 
011502 MOV (RS) ,R2 
S762 037042 7 177770 BIC #177770 ,R2 
$763 03 011546 MOV CRS), -( SP) 
5764 037050 042716 177407 BIC #177407 , (SP) 
S78S 037054 022627 000350 CMP (SP )+,@350 
5786 037060 001004 BNE 1$ 
5787 037062 037113 BITS BITMAP -1(R2),RO 
03 001010 10% 
57869 037070 BR 3$ 
$790 037072 136200 037115 18: BITB BITMAP-1(R2),RO 
0370 001404 BEQ 10% 
$792 037100 3$: 1005, ,ERR124 
$793 037110 005725 108: TST CR5)- 
$794 037112 000205 RTS 
$796 037114 002 004 010 BITMAP: .BYTE 2,4,10,20,40 
037117 020 040 
$797 -EVEN 
5796 
-NLIST 
po dk | 045 123 062 TSHD10::.ASCIZ 
$601 037174 045 116 045 WOR: ASCIZ /SNSAWORKT 
-LIST BEX 
$803 -EVEN 
$805 037212 ENDTST 


SE@ 0125 





| HARDWARE 
| TEST ii: 


$819 037226 
$820 
$621 037232 
$822 


5848 
5849 037350 
5850 
5851 
S852 
5853 037432 
5854 
S855 037434 
S856 


TESTS MACRO VOS.00 
Visual LED Test - 


015006 


000100 
000200 


002074 
002074 


123 


| 


SEQ 0126 
03-Oct-84 14:03 Page 62 
Beware na) 8 Selectable. 
-S8TTL TEST 11: Visuel LED Test - Specifically Selectable. 
J SSAHHSAHASSSSHSSSHSSSSSHSASSSESAESSESHASEHASSSEEAEESEHAEEEEHEESESEEEEEEEEDEEEEE 
; Test 11 - Vievel LED Test - Specifically Selectable. 
$ 
FOR TEST DESCRIPTION SEE 6.0 TEST SUMMERIES 
PORAKKEREREERAAEREALACALLAAHAHAHAEKS EHHKSCEHRASHHSELHAERAKERASASHKEDAAREDEHD 
BGNTST 
CALL SELECT s CALL THE SELECT ROUTINE 
«WORD 10377 $ ret nak TEST, ALL DEVICES 
TSHO11 $ T HEADER ADORES 
BCC 10$ $ BRANCH IF THE TEST IS SELECTED 
EXIT TST s OTHERWISE, EXIT THE TEST 
108: CLR R1 3 START BY SWITCHING LEDS ON 
208: ADO #100,R1 s IF BIT 6 IS CLEAR, SET IT 
BIC 200, s IF IT IS SET, CLEAR IT 
CLR L$LUN 3s START WITH UNIT O 
308: - a s FORM OFFSET FOR PARAMETER ADDRESS 
F 
MOV GPADD(R3) ,R2 s GET PARAMETER ADDRESS IN R2 
BNE 35% PF ADORESS IS SET 
GPHARD L$LUN,R2 : ELSE, GET P ADORESS FROM ORS 
MOV R2,GPADOCR3) F SAVE IT IN THE © 
35$: TST C(R2) 8 bs 
BNE 40% : IF NOT, BRANCH 
JSR PC.CONFIG s ELSE DO AUTO ne FOR THIS UNIT 
40%: MOV R1,aCR2) s SWITCH THE L 
INC L$LUN s GO TO NEXT Care 
002012 CMP LSLUN,LSUNITS s ALL CHANGED ? 
BLT 30% 3: IF NOT, SWITCH OVER THE NEXT 
MOV #20. .R3 3 WAIT FOR 0.5 SECONDS 
50%: JSR ° s 25 MILLISECONDS WAIT ROUTINE 
DEC ; * 20 = 0.5 SECONDS 
BNE 50$ s GO ON IF 0.5 SEC. ARE OVER 
BREAK s ALLOW OPERATOR I 
BR 20% s 00 IT ALL AGAIN 
NLIST BEX 
062 TSHD11::. -ASCIZ OER, LED TEST - SPECIFICALLY SELECTABLE .#N/ 
“EVEN 
ENOTST 
ENDMOC 





K10 
SEQ 0127 
CLOSE SECTION MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 64 
TEST 11: Viesuel LED Test - Specifically Selectable. 


5860 . TITLE CLOSE SECTION 
5871 
5900 
5901 037434 BGNMOD 
Sora 040634 BLKB 400-<.£377 
. -<, > SHIFT T T F 
5916 041000 LASTAD ; O CORRECT FOR LSI BUG 


LSLAST:: 


041004 
5917 041004 


| 

| 

| $902 
5903 037434 $PATCH:: 
5904 037434 .BLKW 500 
5905 

| 

| 





‘ 


CLOSE SECTION MACRO VO5.00 
TEST 11: Visuvel LED Test - 


5919 
be) 


000001 


03-Oct-84 14:03 Page 65 
Meer r moe 4 Selectable. 


BGNSE TUP 16. 
REPT 16. 

BGNP TAB 

-WORD 0,0,0,0,0,0,0,0 
ENDPTAB 

-ENOR 

ENDSETUP 


- END 


i Aa 


L10 


SEQ 0126 


‘ 
— | 


CLOSE SECTION NACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 65-1 


Symbol teble 
ACFLG 026212 
ADCON 017462 G 
ADR = 000020 G 
AI 017200 
AMREST 021470 G 
ANS 002502 G 
ao 017211 
ASK 022026 
ASKADO 742 
ASSEMB= 000010 
8 * 177400 G 
BAD 002476 G 
BADIV 022004 
BITMAP 037114 
BITMSK 002434 
BITMS1 002436 G 
BI 002440 G 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITOS = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BIT& = 000400 G 
BIT9 = 001000 : 
BOE G 

G 
CHAR 


C#GETWe 


SEQ.0129 | 


an 





+ + a nn i ee CC ea ee ee ee 


N10 


SEQ 0130 
CLOSE SECTION MACRO VOS.00 Wednesday 03-Oct-84 14:03 Page 65-2 | 
Symbol teble | 
GPADD 002554 G IsOU = 000041 LSHPCP 002016 G L10037 007760 L10131 041440 
| GPFLG 023160 $HRD = 000041 LSHPTP 002022 G L10040 010032 L10132 041434 
| ISINIT= 000041 LSHW 002154 G L10041 010102 L10133 041464 
GSCNTO= $MO0D = 000041 LSICP 002104 G L10042 010132 L10134 041460 
| GSDELM= 000372 $MSG = 000041 L$INIT 625022 G L10043 010162 L10136 041504 
GsDISP= 00000 IsPROT= 000040 LSLADP 002026 L10044 010232 MASCOM 014050 
GSEXCP= 000400 ISPTAB= 000041 LSLAST 041004 L10045 MASK 014046 G 
GsHILI= IsPWR = 000041 L$LOAD 002100 G L 014120 MOD 002416 G 
GSLQLI= 000001 IsRPT = 000041 L$LUN 002074 G L10047 021774 MODE 002704 G 
$NO = 000000 ISSEG = 000041 LSMREV 002050 G L10050 MREA = 000002 G 
GSOFFS= ISSETU= 000041 L 002000 G L10051 022022 * 000004 G 
GSOFSI= 000376 IsSFT = 000041 LSPRIO 002042 G L10052 = 000006 G 
G$PRMA= 000001 IsSRV = 000041 LSPROT 025014 G L10053 025012 M$TOG = 2G 
GSPRMD= 000002 I¢SuB = 000041 LSPRT 002112 G L10055 S 014536 
GSPRML= IsTST = 000041 LSREPP 002062 G L10056 027662 NEWST 025 
G$RADA= 000140 IOTAB 004312 G LéREV 002010 G 110057 027672 NEXT 025654 
G$RADB= I4TaB 005112 G LSRPT 022026 G L 027764 = 000014 
GSRADO= 000040 JtueP = 000167 LSSOFT 002366 G L10061 027776 NO 
G$RADL= 000120 KLINT 027102 LéSPC 002056 G L 030306 NOCLOK 027240 
G$RADO= LASTFA 015304 LSSPCP 002020 G L10063 030204 NODEV 005772 G 
G$XFER= LCLOCK 026766 LSSPTP 002024 G L10064 031026 NOUNIT 015574 
GSYES = 000010 LF 014656 L$STA 002030 G L10065 031252 NR1 02031 
G1 LOCATE 0 G L$Sw 002164 G L 032162 3 
G16 002374 LOE = G LSTEST 002114 G L10067 033524 NTEST 026371 
u G LSTIM. 002014 110070 034140 NTESTS= 000013 
002270 LOOPEX 026214 LSUNIT 002012 L10071 0 NTEST1 
HEL 022142 LOPFLG L10000 002162 L10072 035344 2G 
HELP = LOT =» 000010 G L10001 002166 L10073 0361 NXM 021766 G 
HOE = 100000 G LOTFLA 002700 G L10002 002222 110074 037212 NXMFLG 002470 G 
IBE = 010000 G LSACP 002110 G L10003 002374 L10075 037432 NXTUUT 025544 
IdU = 000040 G LSAPT 002036 G 110004 006120 L10076 041010 = 000001 
IER = 020000 G L¢AU 027766 G L10005 006162 L10077 041034 OSAPTS= 000001 
INIVWT 025610 L Li 006214 L20100 041030 OsAU = 000001 
Teer 002424 G LSAUTO 7600 G L10007 006246 L10101 041060 OSBGNR= 000001 
INSERT 015240 G LSCCP 002106 G L10010 006276 L10102 041054 O$BGNS= 000001 
INTFLA 002510 LSCLEA 027664 G L10011 006336 110103 041104 Os0U = 000001 
INTFL2 LsCco 0020 006344 04 041100 OSERRT= 000001 
INTSR 021776 G LSDEPO 002011 G L10013 006376 L10105 041130 O$SGNSW= 000001 
ISR = 000100 G LSDESC 005732 G L10014 006430 L10106 041124 OSPOIN= 000001 
ITRAC1 L¢DESP 002076 G L10015 006510 L10107 041154 O$SETU= 000001 
I 30326 L 002060 G L10016 006570 L10110 041150 PADD 002710 G 
ITRACS 031052 LéOISP 002124 G L10017 006622 L10111 041200 PNT #= 001000 G 
ITRAC4 031306 LSOLY 002116 G Li 006654 L10112 041174 PRA 3 
ITRACS 032336 LSOTP 002040 G L10021 006706 110113 PREX 023152 
033560 L¢OTYP G L10022 006740 L10114 041220 PRI = G 
ITRAC7T 034174 L$DuU 027674 G L10023 006772 110115 PRIO 002430 G 
RACS 034722 002072 G L10024 007046 L10116 041244 PRIOO = 000000 G 
ITRACS 035414 LSOVTY 005722 G L10025 007122 110117 041274 PRIO1 = 000040 G 
ITRCNT 002504 G L 002052 G L10026 0071 L10120 041270 PRIO2 = 000100 G 
ITRDEF 002506 G LSENVI 002044 G 110027 007202 L10121 041 PRIO3 = 000140 G 
ITR10 036222 LSERRT 005712 G 7 L10122 041314 PRIO4 = 000200 G 
= 004000 G LSETP 002102 G L10031 007336 L10123 041344 PRIOS = 000240 G 
I * 171770 G LSEXP1 002046 G L10032 007410 L10124 PRIO6 = 000300 G 
IXSTA = 171000 G LSEXP4 002064 : L10033 007442 L10125 041370 PRIO7 = 000340 G 





CLOSE SECTION MACRO VOS.00 Wednesdey 03-Oct-64 14:03 Page 65-3 
1 tedle 


g SSEAADESAEDG®* | GHREUaRERURIAET 


= 





Elepeed time: 00:06:43.64 


ZIDVAO .BIN, ZIDVAO . SEQ/ -SP=(S0, 200 )SVC WL , (53.53 )ZIDVAO. SRC 
|\@ 


023552 
023651 
023743 
024004 
024074 
024177 
024273 
024367 
OS 4a Te 
024533 
028564 


024 706 
017540 
017316 


-GBL . ABS ,OVR) 


26944 Words ( 114 Pages) 
€ 76 P ) 


TOPTAB> 010135 
TePTHVe 000020 


6PTMUe 000020 
TOSAVL® 177777 


SUBNe 
TOTAGL® 177777 


YES 025002 
SPATCH 037434 G 


SEQ 0131 


